home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1992-09-06 | 25.3 KB | [TEXT/KAHL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: procs.tcl
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sun Sep 6 10:08:57 1992, modified Sun Sep 6 10:08:57 1992, creator Think C, type ASCII, 25283 bytes "procs.tcl" , at 0x6343 382 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [KAHL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 72 6f 63 73 2e | 74 63 6c 00 00 00 00 00 |..procs.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 62 c3 00 | 00 01 7e a6 cf c1 79 a6 |.....b..|..~...y.|
|00000060| cf c1 79 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..y.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 00 56 00 00 |........|.....V..|
|00000080| 0d 23 20 27 70 65 74 65 | 27 20 69 73 20 75 73 65 |.# 'pete|' is use|
|00000090| 64 20 69 6e 20 74 68 65 | 20 72 65 73 74 20 6f 66 |d in the| rest of|
|000000a0| 20 74 68 65 20 66 69 6c | 65 20 74 6f 20 64 65 74 | the fil|e to det|
|000000b0| 65 72 6d 69 6e 65 20 69 | 66 20 74 68 69 73 20 69 |ermine i|f this i|
|000000c0| 73 20 77 65 0d 23 20 61 | 72 65 20 73 69 74 74 69 |s we.# a|re sitti|
|000000d0| 6e 67 20 6f 6e 20 73 6f | 6d 65 6f 6e 65 20 65 6c |ng on so|meone el|
|000000e0| 73 65 27 73 20 64 69 73 | 6b 2e 0d 73 65 74 20 70 |se's dis|k..set p|
|000000f0| 65 74 65 20 5b 65 78 70 | 72 20 5b 66 69 6c 65 20 |ete [exp|r [file |
|00000100| 65 78 69 73 74 73 20 22 | 45 78 74 65 72 6e 61 6c |exists "|External|
|00000110| 3a 43 3a 41 6c 70 68 61 | 3a 41 6c 70 68 61 22 5d |:C:Alpha|:Alpha"]|
|00000120| 3f 31 3a 30 5d 0d 73 65 | 74 20 54 63 6c 20 5b 65 |?1:0].se|t Tcl [e|
|00000130| 78 70 72 20 7b 24 70 65 | 74 65 20 3f 20 7b 45 78 |xpr {$pe|te ? {Ex|
|00000140| 74 65 72 6e 61 6c 3a 43 | 3a 54 63 6c 20 36 2e 32 |ternal:C|:Tcl 6.2|
|00000150| 7d 20 3a 20 22 24 48 4f | 4d 45 22 7d 5d 0d 0d 23 |} : "$HO|ME"}]..#|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000001c0| 23 20 41 70 70 65 6e 64 | 73 20 61 6c 6c 20 74 68 |# Append|s all th|
|000001d0| 65 20 27 6e 6f 47 6c 6f | 62 4e 65 63 65 73 73 61 |e 'noGlo|bNecessa|
|000001e0| 72 79 27 20 65 6c 65 6d | 65 6e 74 73 20 77 69 74 |ry' elem|ents wit|
|000001f0| 68 20 67 6c 6f 62 73 20 | 6f 66 20 27 67 6c 6f 62 |h globs |of 'glob|
|00000200| 4e 65 63 65 73 73 61 72 | 79 27 20 65 6c 65 6d 65 |Necessar|y' eleme|
|00000210| 6e 74 73 20 74 6f 20 63 | 72 65 61 74 65 0d 23 20 |nts to c|reate.# |
|00000220| 74 68 65 20 70 65 6e 75 | 6c 74 69 6d 61 74 65 20 |the penu|ltimate |
|00000230| 6c 69 73 74 20 66 69 6c | 65 20 73 65 74 73 2e 20 |list fil|e sets. |
|00000240| 41 6c 73 6f 20 63 61 6c | 6c 73 20 41 6c 70 68 61 |Also cal|ls Alpha|
|00000250| 20 61 6e 64 20 74 65 6c | 6c 73 20 69 74 20 74 68 | and tel|ls it th|
|00000260| 65 20 6e 65 77 20 6c 69 | 73 74 20 6f 66 20 66 69 |e new li|st of fi|
|00000270| 6c 65 20 73 65 74 20 6e | 61 6d 65 73 2e 0d 23 20 |le set n|ames..# |
|00000280| 49 74 20 69 73 20 65 61 | 73 79 20 74 6f 20 63 72 |It is ea|sy to cr|
|00000290| 65 61 74 65 20 6c 61 72 | 67 65 20 66 69 6c 65 73 |eate lar|ge files|
|000002a0| 65 74 73 20 62 79 20 75 | 73 69 6e 67 20 74 68 65 |ets by u|sing the|
|000002b0| 20 27 67 6c 6f 62 27 20 | 54 63 6c 20 63 6f 6d 6d | 'glob' |Tcl comm|
|000002c0| 61 6e 64 2e 20 41 6c 6c | 20 74 68 61 74 20 69 73 |and. All| that is|
|000002d0| 20 72 65 61 6c 6c 79 20 | 0d 23 20 6e 65 63 65 73 | really |.# neces|
|000002e0| 73 61 72 79 20 69 73 20 | 74 6f 20 70 72 6f 76 69 |sary is |to provi|
|000002f0| 64 65 20 41 6c 70 68 61 | 20 77 69 74 68 20 61 20 |de Alpha| with a |
|00000300| 6c 69 73 74 20 6f 66 20 | 66 69 6c 65 73 65 74 20 |list of |fileset |
|00000310| 6e 61 6d 65 73 20 61 6e | 64 20 61 20 77 61 79 20 |names an|d a way |
|00000320| 74 6f 20 72 65 74 72 69 | 65 76 65 20 74 68 65 20 |to retri|eve the |
|00000330| 63 6f 6e 74 65 6e 74 73 | 0d 23 20 6f 66 20 61 20 |contents|.# of a |
|00000340| 67 69 76 65 6e 20 66 69 | 6c 65 73 65 74 2e 0d 23 |given fi|leset..#|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000003b0| 0d 69 66 20 28 24 70 65 | 74 65 29 20 7b 0d 09 73 |.if ($pe|te) {..s|
|000003c0| 65 74 20 67 6c 6f 62 4e | 65 63 65 73 73 61 72 79 |et globN|ecessary|
|000003d0| 20 7b 0d 09 09 7b 4d 49 | 6e 63 6c 75 64 65 73 20 | {...{MI|ncludes |
|000003e0| 22 45 78 74 65 72 6e 61 | 6c 3a 43 3a 54 48 49 4e |"Externa|l:C:THIN|
|000003f0| 4b 20 43 20 35 2e 30 20 | 46 6f 6c 64 65 72 3a 4d |K C 5.0 |Folder:M|
|00000400| 61 63 20 23 69 6e 63 6c | 75 64 65 73 3a 41 70 70 |ac #incl|udes:App|
|00000410| 6c 65 20 23 69 6e 63 6c | 75 64 65 73 3a 2a 2e 68 |le #incl|udes:*.h|
|00000420| 22 7d 0d 09 09 7b 45 64 | 69 74 20 22 24 48 4f 4d |"}...{Ed|it "$HOM|
|00000430| 45 3a 45 64 69 74 53 6f | 75 72 63 65 3a 2a 2e 63 |E:EditSo|urce:*.c|
|00000440| 22 7d 7d 0d 09 0d 09 73 | 65 74 20 6e 6f 47 6c 6f |"}}....s|et noGlo|
|00000450| 62 4e 65 63 65 73 73 61 | 72 79 20 7b 20 0d 09 09 |bNecessa|ry { ...|
|00000460| 7b 20 41 6c 70 68 61 20 | 0d 09 09 09 22 24 48 4f |{ Alpha |...."$HO|
|00000470| 4d 45 3a 45 64 69 74 53 | 6f 75 72 63 65 3a 65 6d |ME:EditS|ource:em|
|00000480| 61 63 73 2e 63 22 0d 09 | 09 09 22 24 48 4f 4d 45 |acs.c"..|.."$HOME|
|00000490| 3a 45 64 69 74 53 6f 75 | 72 63 65 3a 64 69 72 2e |:EditSou|rce:dir.|
|000004a0| 63 22 0d 09 09 09 22 24 | 48 4f 4d 45 3a 45 64 69 |c"...."$|HOME:Edi|
|000004b0| 74 53 6f 75 72 63 65 3a | 61 6c 6c 6f 63 61 2e 63 |tSource:|alloca.c|
|000004c0| 22 0d 09 09 09 22 24 48 | 4f 4d 45 3a 45 64 69 74 |"...."$H|OME:Edit|
|000004d0| 53 6f 75 72 63 65 3a 62 | 69 6e 64 69 6e 67 73 2e |Source:b|indings.|
|000004e0| 63 22 0d 09 09 09 22 24 | 48 4f 4d 45 3a 45 64 69 |c"...."$|HOME:Edi|
|000004f0| 74 53 6f 75 72 63 65 3a | 63 6f 6d 6d 61 6e 64 2e |tSource:|command.|
|00000500| 63 22 0d 09 09 09 22 24 | 48 4f 4d 45 3a 45 64 69 |c"...."$|HOME:Edi|
|00000510| 74 53 6f 75 72 63 65 3a | 66 69 6c 65 5f 73 65 74 |tSource:|file_set|
|00000520| 2e 63 22 0d 09 09 09 22 | 24 48 4f 4d 45 3a 45 64 |.c"...."|$HOME:Ed|
|00000530| 69 74 53 6f 75 72 63 65 | 3a 73 65 61 72 63 68 2e |itSource|:search.|
|00000540| 63 22 0d 09 09 09 22 24 | 48 4f 4d 45 3a 45 64 69 |c"...."$|HOME:Edi|
|00000550| 74 53 6f 75 72 63 65 3a | 74 65 78 74 2e 63 22 0d |tSource:|text.c".|
|00000560| 09 09 09 22 24 48 4f 4d | 45 3a 45 64 69 74 53 6f |..."$HOM|E:EditSo|
|00000570| 75 72 63 65 3a 75 6e 64 | 6f 2e 63 22 0d 09 09 09 |urce:und|o.c"....|
|00000580| 22 24 48 4f 4d 45 3a 45 | 64 69 74 53 6f 75 72 63 |"$HOME:E|ditSourc|
|00000590| 65 3a 76 61 72 61 72 67 | 73 2e 63 22 0d 09 09 09 |e:vararg|s.c"....|
|000005a0| 22 24 48 4f 4d 45 3a 45 | 64 69 74 53 6f 75 72 63 |"$HOME:E|ditSourc|
|000005b0| 65 3a 77 69 6e 64 6f 77 | 73 2e 63 22 0d 09 09 09 |e:window|s.c"....|
|000005c0| 22 24 48 4f 4d 45 3a 45 | 64 69 74 53 6f 75 72 63 |"$HOME:E|ditSourc|
|000005d0| 65 3a 64 69 72 54 2e 63 | 22 0d 09 09 09 22 24 48 |e:dirT.c|"...."$H|
|000005e0| 4f 4d 45 3a 45 64 69 74 | 53 6f 75 72 63 65 3a 66 |OME:Edit|Source:f|
|000005f0| 72 69 6c 6c 73 2e 63 22 | 0d 09 09 09 22 24 48 4f |rills.c"|...."$HO|
|00000600| 4d 45 3a 45 64 69 74 53 | 6f 75 72 63 65 3a 69 6f |ME:EditS|ource:io|
|00000610| 2e 63 22 0d 09 09 09 22 | 24 48 4f 4d 45 3a 45 64 |.c"...."|$HOME:Ed|
|00000620| 69 74 53 6f 75 72 63 65 | 3a 6b 65 79 2e 63 22 0d |itSource|:key.c".|
|00000630| 09 09 09 22 24 48 4f 4d | 45 3a 45 64 69 74 53 6f |..."$HOM|E:EditSo|
|00000640| 75 72 63 65 3a 6c 6f 63 | 61 6c 54 63 6c 2e 63 22 |urce:loc|alTcl.c"|
|00000650| 0d 09 09 09 22 24 48 4f | 4d 45 3a 45 64 69 74 53 |...."$HO|ME:EditS|
|00000660| 6f 75 72 63 65 3a 6d 6f | 72 65 54 63 6c 2e 63 22 |ource:mo|reTcl.c"|
|00000670| 0d 09 09 09 22 24 48 4f | 4d 45 3a 45 64 69 74 53 |...."$HO|ME:EditS|
|00000680| 6f 75 72 63 65 3a 73 68 | 65 6c 6c 2e 63 22 0d 09 |ource:sh|ell.c"..|
|00000690| 09 09 22 24 48 4f 4d 45 | 3a 45 64 69 74 53 6f 75 |.."$HOME|:EditSou|
|000006a0| 72 63 65 3a 6d 61 69 6e | 2e 63 22 0d 09 09 09 22 |rce:main|.c"...."|
|000006b0| 24 48 4f 4d 45 3a 45 64 | 69 74 53 6f 75 72 63 65 |$HOME:Ed|itSource|
|000006c0| 3a 6d 69 73 63 2e 63 22 | 0d 09 09 09 22 24 48 4f |:misc.c"|...."$HO|
|000006d0| 4d 45 3a 45 64 69 74 53 | 6f 75 72 63 65 3a 6f 70 |ME:EditS|ource:op|
|000006e0| 74 69 6f 6e 73 2e 63 22 | 0d 09 09 09 22 24 48 4f |tions.c"|...."$HO|
|000006f0| 4d 45 3a 45 64 69 74 53 | 6f 75 72 63 65 3a 70 6f |ME:EditS|ource:po|
|00000700| 72 74 2e 63 22 0d 09 09 | 09 22 24 48 4f 4d 45 3a |rt.c"...|."$HOME:|
|00000710| 45 64 69 74 53 6f 75 72 | 63 65 3a 72 65 64 72 61 |EditSour|ce:redra|
|00000720| 77 2e 63 22 0d 09 09 09 | 22 24 48 4f 4d 45 3a 45 |w.c"....|"$HOME:E|
|00000730| 64 69 74 53 6f 75 72 63 | 65 3a 61 6c 66 52 65 67 |ditSourc|e:alfReg|
|00000740| 65 78 70 2e 63 22 0d 09 | 09 09 22 24 48 4f 4d 45 |exp.c"..|.."$HOME|
|00000750| 3a 45 64 69 74 53 6f 75 | 72 63 65 3a 77 6d 61 6e |:EditSou|rce:wman|
|00000760| 61 67 65 72 2e 63 22 0d | 09 09 09 22 24 54 63 6c |ager.c".|..."$Tcl|
|00000770| 3a 70 61 6e 69 63 2e 63 | 22 0d 09 09 09 22 24 54 |:panic.c|"...."$T|
|00000780| 63 6c 3a 74 63 6c 4d 61 | 63 2e 63 22 0d 09 09 09 |cl:tclMa|c.c"....|
|00000790| 22 24 54 63 6c 3a 74 63 | 6c 4d 61 63 55 74 69 6c |"$Tcl:tc|lMacUtil|
|000007a0| 2e 63 22 0d 09 09 09 22 | 24 54 63 6c 3a 74 63 6c |.c"...."|$Tcl:tcl|
|000007b0| 41 73 73 65 6d 2e 63 22 | 0d 09 09 09 22 24 54 63 |Assem.c"|...."$Tc|
|000007c0| 6c 3a 74 63 6c 42 61 73 | 69 63 2e 63 22 0d 09 09 |l:tclBas|ic.c"...|
|000007d0| 09 22 24 54 63 6c 3a 74 | 63 6c 43 6b 61 6c 6c 6f |."$Tcl:t|clCkallo|
|000007e0| 63 2e 63 22 0d 09 09 09 | 22 24 54 63 6c 3a 74 63 |c.c"....|"$Tcl:tc|
|000007f0| 6c 43 6d 64 41 48 2e 63 | 22 0d 09 09 09 22 24 54 |lCmdAH.c|"...."$T|
|00000800| 63 6c 3a 74 63 6c 43 6d | 64 49 4c 2e 63 22 0d 09 |cl:tclCm|dIL.c"..|
|00000810| 09 09 22 24 54 63 6c 3a | 74 63 6c 43 6d 64 4d 5a |.."$Tcl:|tclCmdMZ|
|00000820| 2e 63 22 0d 09 09 09 22 | 24 54 63 6c 3a 74 63 6c |.c"...."|$Tcl:tcl|
|00000830| 45 6e 76 2e 63 22 0d 09 | 09 09 22 24 54 63 6c 3a |Env.c"..|.."$Tcl:|
|00000840| 74 63 6c 45 78 70 72 2e | 63 22 0d 09 09 09 22 24 |tclExpr.|c"...."$|
|00000850| 54 63 6c 3a 74 63 6c 47 | 65 74 2e 63 22 0d 09 09 |Tcl:tclG|et.c"...|
|00000860| 09 22 24 54 63 6c 3a 74 | 63 6c 47 6c 6f 62 2e 63 |."$Tcl:t|clGlob.c|
|00000870| 22 0d 09 09 09 22 24 54 | 63 6c 3a 74 63 6c 48 61 |"...."$T|cl:tclHa|
|00000880| 73 68 2e 63 22 0d 09 09 | 09 22 24 54 63 6c 3a 74 |sh.c"...|."$Tcl:t|
|00000890| 63 6c 48 69 73 74 6f 72 | 79 2e 63 22 0d 09 09 09 |clHistor|y.c"....|
|000008a0| 22 24 54 63 6c 3a 74 63 | 6c 50 61 72 73 65 2e 63 |"$Tcl:tc|lParse.c|
|000008b0| 22 0d 09 09 09 22 24 54 | 63 6c 3a 74 63 6c 50 72 |"...."$T|cl:tclPr|
|000008c0| 6f 63 2e 63 22 0d 09 09 | 09 22 24 54 63 6c 3a 74 |oc.c"...|."$Tcl:t|
|000008d0| 63 6c 55 6e 69 78 41 5a | 2e 63 22 0d 09 09 09 22 |clUnixAZ|.c"...."|
|000008e0| 24 54 63 6c 3a 74 63 6c | 55 6e 69 78 53 74 72 2e |$Tcl:tcl|UnixStr.|
|000008f0| 63 22 0d 09 09 09 22 24 | 54 63 6c 3a 74 63 6c 55 |c"...."$|Tcl:tclU|
|00000900| 6e 69 78 55 74 69 6c 2e | 63 22 0d 09 09 09 22 24 |nixUtil.|c"...."$|
|00000910| 54 63 6c 3a 74 63 6c 55 | 74 69 6c 2e 63 22 0d 09 |Tcl:tclU|til.c"..|
|00000920| 09 09 22 24 54 63 6c 3a | 74 63 6c 56 61 72 2e 63 |.."$Tcl:|tclVar.c|
|00000930| 22 0d 09 09 7d 0d 09 7d | 0d 7d 20 65 6c 73 65 20 |"...}..}|.} else |
|00000940| 7b 0d 09 73 65 74 20 67 | 6c 6f 62 4e 65 63 65 73 |{..set g|lobNeces|
|00000950| 73 61 72 79 20 7b 0d 09 | 09 7b 48 6f 6d 65 44 69 |sary {..|.{HomeDi|
|00000960| 72 20 22 24 48 4f 4d 45 | 3a 2a 22 7d 0d 09 09 7b |r "$HOME|:*"}...{|
|00000970| 48 65 6c 70 20 22 24 48 | 4f 4d 45 3a 48 65 6c 70 |Help "$H|OME:Help|
|00000980| 3a 2a 22 7d 0d 09 7d 0d | 09 0d 09 73 65 74 20 6e |:*"}..}.|...set n|
|00000990| 6f 47 6c 6f 62 4e 65 63 | 65 73 73 61 72 79 20 7b |oGlobNec|essary {|
|000009a0| 0d 09 09 7b 20 41 6c 74 | 65 72 6e 61 74 65 48 6f |...{ Alt|ernateHo|
|000009b0| 6d 65 0d 09 09 09 22 24 | 48 4f 4d 45 3a 41 6c 70 |me...."$|HOME:Alp|
|000009c0| 68 61 42 69 74 73 2e 74 | 63 6c 22 0d 09 09 09 22 |haBits.t|cl"...."|
|000009d0| 24 48 4f 4d 45 3a 70 72 | 6f 63 73 2e 74 63 6c 22 |$HOME:pr|ocs.tcl"|
|000009e0| 7d 0d 09 09 7b 20 41 6c | 74 65 72 6e 61 74 65 48 |}...{ Al|ternateH|
|000009f0| 65 6c 70 0d 09 09 09 22 | 41 6c 70 68 61 20 48 65 |elp...."|Alpha He|
|00000a00| 6c 70 22 0d 09 09 09 22 | 41 6c 70 68 61 20 54 63 |lp"...."|Alpha Tc|
|00000a10| 6c 20 45 78 74 65 6e 73 | 69 6f 6e 73 22 0d 09 09 |l Extens|ions"...|
|00000a20| 09 22 44 65 62 75 67 67 | 69 6e 67 22 0d 09 09 09 |."Debugg|ing"....|
|00000a30| 22 6b 65 79 62 6f 61 72 | 64 2e 74 65 78 22 0d 09 |"keyboar|d.tex"..|
|00000a40| 09 09 22 4c 61 54 65 58 | 20 4b 65 79 73 22 0d 09 |.."LaTeX| Keys"..|
|00000a50| 09 09 22 52 65 67 75 6c | 61 72 20 45 78 70 72 65 |.."Regul|ar Expre|
|00000a60| 73 73 69 6f 6e 73 22 0d | 09 09 09 22 53 68 65 6c |ssions".|..."Shel|
|00000a70| 6c 73 22 0d 09 09 09 22 | 54 63 6c 22 0d 09 09 09 |ls"...."|Tcl"....|
|00000a80| 22 54 69 63 6b 6c 65 22 | 0d 09 09 7d 0d 09 7d 0d |"Tickle"|...}..}.|
|00000a90| 7d 0d 0d 0d 23 20 54 68 | 69 73 20 6c 69 73 74 20 |}...# Th|is list |
|00000aa0| 74 61 6b 65 73 20 61 20 | 73 74 72 69 6e 67 20 61 |takes a |string a|
|00000ab0| 6e 64 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 73 |nd retur|ns the s|
|00000ac0| 74 72 69 6e 67 20 77 2f | 20 61 6c 6c 20 6f 63 63 |tring w/| all occ|
|00000ad0| 75 72 61 6e 63 65 73 0d | 23 20 6f 66 20 74 68 65 |urances.|# of the|
|00000ae0| 20 76 61 72 69 61 62 6c | 65 20 27 48 4f 4d 45 27 | variabl|e 'HOME'|
|00000af0| 20 73 75 62 73 74 69 74 | 75 74 65 64 2e 20 54 6f | substit|uted. To|
|00000b00| 20 77 6f 72 6b 20 74 68 | 69 73 20 74 72 69 63 6b | work th|is trick|
|00000b10| 20 77 2f 20 6f 74 68 65 | 72 20 0d 23 20 76 61 72 | w/ othe|r .# var|
|00000b20| 69 61 62 6c 65 73 2c 20 | 6a 75 73 74 20 64 65 63 |iables, |just dec|
|00000b30| 6c 61 72 65 20 74 68 65 | 6d 20 61 73 20 67 6c 6f |lare the|m as glo|
|00000b40| 62 61 6c 20 69 6e 20 74 | 68 65 20 66 6f 6c 6c 6f |bal in t|he follo|
|00000b50| 77 69 6e 67 2e 0d 23 20 | 54 68 69 73 20 72 6f 75 |wing..# |This rou|
|00000b60| 74 69 6e 65 20 63 72 65 | 61 74 65 73 20 74 68 65 |tine cre|ates the|
|00000b70| 20 66 69 6e 61 6c 20 66 | 69 6c 65 73 65 74 20 6c | final f|ileset l|
|00000b80| 69 73 74 20 66 72 6f 6d | 20 27 67 6c 6f 62 4e 65 |ist from| 'globNe|
|00000b90| 63 65 73 73 61 72 79 27 | 20 0d 23 20 27 6e 6f 47 |cessary'| .# 'noG|
|00000ba0| 6c 6f 62 4e 65 63 65 73 | 73 61 72 79 27 2e 20 54 |lobNeces|sary'. T|
|00000bb0| 79 70 69 63 61 6c 6c 79 | 20 6f 6e 6c 79 20 72 75 |ypically| only ru|
|00000bc0| 6e 20 61 74 20 73 74 61 | 72 74 75 70 2e 0d 70 72 |n at sta|rtup..pr|
|00000bd0| 6f 63 20 65 78 70 61 6e | 64 46 69 6c 65 53 65 74 |oc expan|dFileSet|
|00000be0| 73 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 66 |s {} {..|global f|
|00000bf0| 69 6c 65 53 65 74 73 0d | 09 67 6c 6f 62 61 6c 20 |ileSets.|.global |
|00000c00| 67 6c 6f 62 4e 65 63 65 | 73 73 61 72 79 0d 09 67 |globNece|ssary..g|
|00000c10| 6c 6f 62 61 6c 20 6e 6f | 47 6c 6f 62 4e 65 63 65 |lobal no|GlobNece|
|00000c20| 73 73 61 72 79 0d 09 0d | 09 75 70 6c 65 76 65 6c |ssary...|.uplevel|
|00000c30| 20 23 30 20 7b 73 65 74 | 20 67 6c 6f 62 4e 65 63 | #0 {set| globNec|
|00000c40| 65 73 73 61 72 79 20 5b | 73 75 62 73 74 69 74 75 |essary [|substitu|
|00000c50| 74 65 56 61 72 73 20 24 | 67 6c 6f 62 4e 65 63 65 |teVars $|globNece|
|00000c60| 73 73 61 72 79 5d 7d 0d | 09 75 70 6c 65 76 65 6c |ssary]}.|.uplevel|
|00000c70| 20 23 30 20 7b 73 65 74 | 20 6e 6f 47 6c 6f 62 4e | #0 {set| noGlobN|
|00000c80| 65 63 65 73 73 61 72 79 | 20 5b 73 75 62 73 74 69 |ecessary| [substi|
|00000c90| 74 75 74 65 56 61 72 73 | 20 24 6e 6f 47 6c 6f 62 |tuteVars| $noGlob|
|00000ca0| 4e 65 63 65 73 73 61 72 | 79 5d 7d 0d 0d 09 73 65 |Necessar|y]}...se|
|00000cb0| 74 20 66 69 6c 65 53 65 | 74 73 20 7b 20 7d 0d 09 |t fileSe|ts { }..|
|00000cc0| 0d 09 73 65 74 20 6e 61 | 6d 65 20 5b 67 65 74 56 |..set na|me [getV|
|00000cd0| 61 72 20 63 75 72 72 46 | 69 6c 65 53 65 74 5d 0d |ar currF|ileSet].|
|00000ce0| 09 66 6f 72 65 61 63 68 | 20 69 74 65 6d 20 24 67 |.foreach| item $g|
|00000cf0| 6c 6f 62 4e 65 63 65 73 | 73 61 72 79 20 7b 0d 09 |lobNeces|sary {..|
|00000d00| 09 6c 61 70 70 65 6e 64 | 20 66 69 6c 65 53 65 74 |.lappend| fileSet|
|00000d10| 73 20 5b 6c 69 6e 73 65 | 72 74 20 5b 67 6c 6f 62 |s [linse|rt [glob|
|00000d20| 20 5b 6c 69 6e 64 65 78 | 20 24 69 74 65 6d 20 31 | [lindex| $item 1|
|00000d30| 5d 5d 20 30 20 5b 6c 69 | 6e 64 65 78 20 24 69 74 |]] 0 [li|ndex $it|
|00000d40| 65 6d 20 30 5d 5d 0d 09 | 09 6c 61 70 70 65 6e 64 |em 0]]..|.lappend|
|00000d50| 20 6e 61 6d 65 73 20 5b | 6c 69 6e 64 65 78 20 24 | names [|lindex $|
|00000d60| 69 74 65 6d 20 30 5d 0d | 09 7d 0d 09 66 6f 72 65 |item 0].|.}..fore|
|00000d70| 61 63 68 20 69 74 65 6d | 20 24 6e 6f 47 6c 6f 62 |ach item| $noGlob|
|00000d80| 4e 65 63 65 73 73 61 72 | 79 20 7b 0d 09 09 6c 61 |Necessar|y {...la|
|00000d90| 70 70 65 6e 64 20 66 69 | 6c 65 53 65 74 73 20 24 |ppend fi|leSets $|
|00000da0| 69 74 65 6d 0d 09 09 6c | 61 70 70 65 6e 64 20 6e |item...l|append n|
|00000db0| 61 6d 65 73 20 5b 6c 69 | 6e 64 65 78 20 24 69 74 |ames [li|ndex $it|
|00000dc0| 65 6d 20 30 5d 0d 09 7d | 0d 09 0d 09 65 76 61 6c |em 0]..}|....eval|
|00000dd0| 20 5b 6c 69 6e 73 65 72 | 74 20 24 6e 61 6d 65 73 | [linser|t $names|
|00000de0| 20 30 20 73 65 74 46 53 | 65 74 73 20 5d 0d 7d 0d | 0 setFS|ets ].}.|
|00000df0| 69 66 20 7b 5b 63 61 74 | 63 68 20 65 78 70 61 6e |if {[cat|ch expan|
|00000e00| 64 46 69 6c 65 53 65 74 | 73 5d 7d 20 7b 61 6c 65 |dFileSet|s]} {ale|
|00000e10| 72 74 6e 6f 74 65 20 22 | 46 69 6c 65 73 65 74 20 |rtnote "|Fileset |
|00000e20| 65 78 70 61 6e 73 69 6f | 6e 20 77 65 6e 74 20 77 |expansio|n went w|
|00000e30| 72 6f 6e 67 2e 22 7d 0d | 0d 23 20 43 61 6c 6c 65 |rong."}.|.# Calle|
|00000e40| 64 20 66 72 6f 6d 20 41 | 6c 70 68 61 20 74 6f 20 |d from A|lpha to |
|00000e50| 67 65 74 20 6c 69 73 74 | 20 6f 66 20 66 69 6c 65 |get list| of file|
|00000e60| 73 20 66 6f 72 20 63 75 | 72 72 65 6e 74 20 66 69 |s for cu|rrent fi|
|00000e70| 6c 65 20 73 65 74 2e 0d | 70 72 6f 63 20 67 65 74 |le set..|proc get|
|00000e80| 43 75 72 72 46 69 6c 65 | 53 65 74 20 7b 7d 20 7b |CurrFile|Set {} {|
|00000e90| 0d 09 67 6c 6f 62 61 6c | 20 66 69 6c 65 53 65 74 |..global| fileSet|
|00000ea0| 73 0d 09 73 65 74 20 6e | 61 6d 65 20 5b 67 65 74 |s..set n|ame [get|
|00000eb0| 56 61 72 20 63 75 72 72 | 46 69 6c 65 53 65 74 5d |Var curr|FileSet]|
|00000ec0| 0d 09 66 6f 72 65 61 63 | 68 20 73 65 74 20 24 66 |..foreac|h set $f|
|00000ed0| 69 6c 65 53 65 74 73 20 | 7b 0d 09 09 69 66 20 7b |ileSets |{...if {|
|00000ee0| 24 6e 61 6d 65 20 3d 3d | 20 5b 6c 69 6e 64 65 78 |$name ==| [lindex|
|00000ef0| 20 24 73 65 74 20 30 5d | 7d 20 7b 0d 09 09 09 72 | $set 0]|} {....r|
|00000f00| 65 74 75 72 6e 20 5b 6c | 72 61 6e 67 65 20 24 73 |eturn [l|range $s|
|00000f10| 65 74 20 31 20 65 6e 64 | 5d 0d 09 09 7d 0d 09 7d |et 1 end|]...}..}|
|00000f20| 0d 09 65 72 72 6f 72 20 | 22 55 6e 61 62 6c 65 20 |..error |"Unable |
|00000f30| 74 6f 20 66 69 6e 64 20 | 76 61 6c 69 64 20 66 69 |to find |valid fi|
|00000f40| 6c 65 20 73 65 74 21 22 | 0d 7d 0d 0d 0d 23 3d 3d |le set!"|.}...#==|
|00000f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 22 45 |========|===.# "E|
|00000fa0| 6c 65 63 74 72 69 63 22 | 20 43 20 66 75 6e 63 74 |lectric"| C funct|
|00000fb0| 69 6f 6e 73 2e 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ions..#=|========|
|00000fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001000| 3d 3d 3d 3d 0d 0d 23 20 | 46 69 72 73 74 2c 20 64 |====..# |First, d|
|00001010| 65 66 69 6e 65 20 6d 61 | 63 72 6f 73 20 74 6f 20 |efine ma|cros to |
|00001020| 62 79 70 61 73 73 20 74 | 68 65 20 65 6c 65 63 74 |bypass t|he elect|
|00001030| 72 69 63 20 62 72 61 63 | 65 73 2e 0d 70 72 6f 63 |ric brac|es..proc|
|00001040| 20 6f 72 64 4c 65 66 74 | 42 72 61 63 65 20 7b 7d | ordLeft|Brace {}|
|00001050| 20 7b 0d 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 | {..inse|rtText "|
|00001060| 5c 7b 22 0d 7d 0d 62 69 | 6e 64 20 7b 27 5b 27 7d |\{".}.bi|nd {'['}|
|00001070| 20 3c 63 73 3e 20 6f 72 | 64 4c 65 66 74 42 72 61 | <cs> or|dLeftBra|
|00001080| 63 65 0d 0d 70 72 6f 63 | 20 6f 72 64 52 69 67 68 |ce..proc| ordRigh|
|00001090| 74 42 72 61 63 65 20 7b | 7d 20 7b 0d 09 69 6e 73 |tBrace {|} {..ins|
|000010a0| 65 72 74 54 65 78 74 20 | 22 5c 7d 22 0d 09 62 6c |ertText |"\}"..bl|
|000010b0| 69 6e 6b 20 5b 6d 61 74 | 63 68 49 74 20 22 5c 7d |ink [mat|chIt "\}|
|000010c0| 22 20 5b 65 78 70 72 20 | 5b 67 65 74 50 6f 73 5d |" [expr |[getPos]|
|000010d0| 2d 31 5d 5d 0d 7d 0d 62 | 69 6e 64 20 7b 27 5d 27 |-1]].}.b|ind {']'|
|000010e0| 7d 20 3c 63 73 3e 20 6f | 72 64 52 69 67 68 74 42 |} <cs> o|rdRightB|
|000010f0| 72 61 63 65 0d 09 0d 0d | 23 20 72 65 74 75 72 6e |race....|# return|
|00001100| 73 20 74 68 65 20 69 6e | 64 65 6e 74 20 73 74 72 |s the in|dent str|
|00001110| 69 6e 67 20 6f 66 20 74 | 68 65 20 6c 69 6e 65 20 |ing of t|he line |
|00001120| 6e 61 6d 65 64 20 62 79 | 20 27 70 6f 73 27 0d 70 |named by| 'pos'.p|
|00001130| 72 6f 63 20 69 6e 64 65 | 6e 74 53 74 72 69 6e 67 |roc inde|ntString|
|00001140| 20 70 6f 73 20 7b 0d 09 | 73 65 74 20 73 74 61 72 | pos {..|set star|
|00001150| 74 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 24 70 6f |t [lineS|tart $po|
|00001160| 73 5d 0d 09 73 65 74 20 | 65 6e 64 20 5b 6e 65 78 |s]..set |end [nex|
|00001170| 74 4c 69 6e 65 53 74 61 | 72 74 20 24 70 6f 73 5d |tLineSta|rt $pos]|
|00001180| 0d 09 73 65 74 20 74 65 | 78 74 20 5b 67 65 74 54 |..set te|xt [getT|
|00001190| 65 78 74 20 24 73 74 61 | 72 74 20 24 65 6e 64 5d |ext $sta|rt $end]|
|000011a0| 0d 09 66 6f 72 20 7b 73 | 65 74 20 69 20 30 7d 20 |..for {s|et i 0} |
|000011b0| 7b 31 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |{1} {inc|r i} {..|
|000011c0| 09 73 65 74 20 63 20 5b | 73 74 72 69 6e 67 20 69 |.set c [|string i|
|000011d0| 6e 64 65 78 20 24 74 65 | 78 74 20 24 69 5d 0d 09 |ndex $te|xt $i]..|
|000011e0| 09 69 66 20 7b 28 24 63 | 20 21 3d 20 22 5c 20 22 |.if {($c| != "\ "|
|000011f0| 29 20 26 26 20 28 24 63 | 20 21 3d 20 22 5c 74 22 |) && ($c| != "\t"|
|00001200| 29 7d 20 74 68 65 6e 20 | 7b 0d 09 09 09 72 65 74 |)} then |{....ret|
|00001210| 75 72 6e 20 5b 73 74 72 | 69 6e 67 20 72 61 6e 67 |urn [str|ing rang|
|00001220| 65 20 24 74 65 78 74 20 | 30 20 5b 65 78 70 72 20 |e $text |0 [expr |
|00001230| 24 69 2d 31 5d 5d 0d 09 | 09 7d 0d 09 7d 0d 09 72 |$i-1]]..|.}..}..r|
|00001240| 65 74 75 72 6e 0d 7d 0d | 0d 0d 23 20 41 73 73 75 |eturn.}.|..# Assu|
|00001250| 6d 65 73 20 62 65 66 6f | 72 65 2f 61 66 74 65 72 |mes befo|re/after|
|00001260| 20 6d 61 74 63 68 2c 20 | 77 65 20 73 74 61 72 74 | match, |we start|
|00001270| 20 77 69 74 68 20 61 20 | 64 65 70 74 68 20 6f 66 | with a |depth of|
|00001280| 20 31 2e 20 4f 6e 6c 79 | 20 73 65 61 72 63 68 65 | 1. Only| searche|
|00001290| 73 20 31 30 30 30 0d 23 | 20 63 68 61 72 73 2e 0d |s 1000.#| chars..|
|000012a0| 70 72 6f 63 20 6d 61 74 | 63 68 49 74 20 7b 62 72 |proc mat|chIt {br|
|000012b0| 61 63 65 20 70 6f 73 7d | 20 7b 0d 09 67 6c 6f 62 |ace pos}| {..glob|
|000012c0| 61 6c 20 64 65 70 74 68 | 0d 09 63 61 73 65 20 24 |al depth|..case $|
|000012d0| 62 72 61 63 65 20 69 6e | 20 7b 0d 09 09 22 5c 7b |brace in| {..."\{|
|000012e0| 22 20 7b 73 65 74 20 6d | 61 74 63 68 20 22 5c 7d |" {set m|atch "\}|
|000012f0| 22 3b 20 73 65 74 20 66 | 6f 72 20 31 7d 0d 09 09 |"; set f|or 1}...|
|00001300| 22 5c 7d 22 20 7b 73 65 | 74 20 6d 61 74 63 68 20 |"\}" {se|t match |
|00001310| 22 5c 7b 22 3b 20 73 65 | 74 20 66 6f 72 20 30 7d |"\{"; se|t for 0}|
|00001320| 0d 09 09 22 5c 5b 22 20 | 7b 73 65 74 20 6d 61 74 |..."\[" |{set mat|
|00001330| 63 68 20 22 5c 5d 22 3b | 20 73 65 74 20 66 6f 72 |ch "\]";| set for|
|00001340| 20 31 7d 0d 09 09 22 5c | 5d 22 20 7b 73 65 74 20 | 1}..."\|]" {set |
|00001350| 6d 61 74 63 68 20 22 5c | 5d 22 3b 20 73 65 74 20 |match "\|]"; set |
|00001360| 66 6f 72 20 30 7d 0d 09 | 09 22 5c 28 22 20 7b 73 |for 0}..|."\(" {s|
|00001370| 65 74 20 6d 61 74 63 68 | 20 22 5c 29 22 3b 20 73 |et match| "\)"; s|
|00001380| 65 74 20 66 6f 72 20 31 | 7d 0d 09 09 22 5c 29 22 |et for 1|}..."\)"|
|00001390| 20 7b 73 65 74 20 6d 61 | 74 63 68 20 22 5c 28 22 | {set ma|tch "\("|
|000013a0| 3b 20 73 65 74 20 66 6f | 72 20 30 7d 0d 09 09 64 |; set fo|r 0}...d|
|000013b0| 65 66 61 75 6c 74 20 7b | 0d 09 09 09 62 65 65 70 |efault {|....beep|
|000013c0| 0d 09 09 09 6d 65 73 73 | 61 67 65 20 22 43 61 6e |....mess|age "Can|
|000013d0| 27 74 20 6d 61 74 63 68 | 20 27 22 20 24 62 72 61 |'t match| '" $bra|
|000013e0| 63 65 20 22 27 22 0d 09 | 09 7d 0d 09 7d 0d 0d 09 |ce "'"..|.}..}...|
|000013f0| 69 66 20 7b 24 66 6f 72 | 20 3d 3d 20 31 7d 20 74 |if {$for| == 1} t|
|00001400| 68 65 6e 20 7b 0d 09 09 | 73 65 74 56 61 72 20 66 |hen {...|setVar f|
|00001410| 6f 72 77 61 72 64 20 31 | 3b 0d 09 09 73 65 74 20 |orward 1|;...set |
|00001420| 61 64 64 20 31 3b 0d 09 | 09 73 65 74 20 65 6e 64 |add 1;..|.set end|
|00001430| 20 5b 65 78 70 72 20 5b | 67 65 74 50 6f 73 5d 2b | [expr [|getPos]+|
|00001440| 31 30 30 30 5d 0d 09 09 | 69 66 20 7b 24 65 6e 64 |1000]...|if {$end|
|00001450| 20 3e 20 5b 6d 61 78 50 | 6f 73 5d 7d 20 7b 73 65 | > [maxP|os]} {se|
|00001460| 74 20 65 6e 64 20 5b 6d | 61 78 50 6f 73 5d 7d 0d |t end [m|axPos]}.|
|00001470| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 56 |.} else |{...setV|
|00001480| 61 72 20 66 6f 72 77 61 | 72 64 20 30 3b 0d 09 09 |ar forwa|rd 0;...|
|00001490| 73 65 74 20 61 64 64 20 | 2d 31 3b 0d 09 09 73 65 |set add |-1;...se|
|000014a0| 74 20 65 6e 64 20 5b 65 | 78 70 72 20 5b 67 65 74 |t end [e|xpr [get|
|000014b0| 50 6f 73 5d 2d 31 30 30 | 30 5d 0d 09 09 69 66 20 |Pos]-100|0]...if |
|000014c0| 7b 24 65 6e 64 20 3c 20 | 2d 31 7d 20 7b 73 65 74 |{$end < |-1} {set|
|000014d0| 20 65 6e 64 20 2d 31 3b | 7d 0d 09 7d 0d 0d 09 73 | end -1;|}..}...s|
|000014e0| 65 74 20 64 65 70 74 68 | 20 31 0d 09 73 65 74 20 |et depth| 1..set |
|000014f0| 73 74 72 20 22 28 24 62 | 72 61 63 65 7c 24 6d 61 |str "($b|race|$ma|
|00001500| 74 63 68 29 22 0d 09 73 | 65 74 56 61 72 20 72 65 |tch)"..s|etVar re|
|00001510| 67 45 78 70 72 20 31 0d | 09 73 65 74 56 61 72 20 |gExpr 1.|.setVar |
|00001520| 6d 61 74 63 68 57 6f 72 | 64 73 20 30 0d 09 77 68 |matchWor|ds 0..wh|
|00001530| 69 6c 65 20 7b 31 7d 20 | 7b 0d 09 09 69 66 20 7b |ile {1} |{...if {|
|00001540| 5b 63 61 74 63 68 20 7b | 73 65 61 72 63 68 20 24 |[catch {|search $|
|00001550| 73 74 72 20 24 70 6f 73 | 20 24 65 6e 64 7d 20 6c |str $pos| $end} l|
|00001560| 69 6d 69 74 73 5d 20 21 | 3d 20 30 7d 20 20 7b 0d |imits] !|= 0} {.|
|00001570| 09 09 09 6d 65 73 73 61 | 67 65 20 22 4e 6f 74 20 |...messa|ge "Not |
|00001580| 6d 61 74 63 68 65 64 20 | 31 22 0d 09 09 09 62 65 |matched |1"....be|
|00001590| 65 70 0d 09 09 09 72 65 | 74 75 72 6e 0d 09 09 7d |ep....re|turn...}|
|000015a0| 0d 09 09 73 65 74 20 70 | 6f 73 20 5b 6c 69 6e 64 |...set p|os [lind|
|000015b0| 65 78 20 24 6c 69 6d 69 | 74 73 20 30 5d 0d 09 09 |ex $limi|ts 0]...|
|000015c0| 73 65 74 20 63 20 5b 6c | 6f 6f 6b 41 74 20 24 70 |set c [l|ookAt $p|
|000015d0| 6f 73 5d 0d 0d 09 09 69 | 66 20 7b 24 63 20 3d 3d |os]....i|f {$c ==|
|000015e0| 20 24 62 72 61 63 65 7d | 20 7b 0d 09 09 09 69 6e | $brace}| {....in|
|000015f0| 63 72 20 64 65 70 74 68 | 0d 09 09 7d 20 0d 09 09 |cr depth|...} ...|
|00001600| 69 66 20 7b 24 63 20 3d | 3d 20 24 6d 61 74 63 68 |if {$c =|= $match|
|00001610| 7d 20 7b 0d 09 09 09 69 | 66 20 7b 5b 73 65 74 20 |} {....i|f {[set |
|00001620| 64 65 70 74 68 20 5b 65 | 78 70 72 20 24 64 65 70 |depth [e|xpr $dep|
|00001630| 74 68 2d 31 5d 5d 20 3d | 3d 20 30 7d 20 7b 0d 09 |th-1]] =|= 0} {..|
|00001640| 09 09 09 72 65 74 75 72 | 6e 20 24 70 6f 73 0d 09 |...retur|n $pos..|
|00001650| 09 09 7d 0d 09 09 7d 0d | 09 09 73 65 74 20 70 6f |..}...}.|..set po|
|00001660| 73 20 5b 65 78 70 72 20 | 24 70 6f 73 2b 24 61 64 |s [expr |$pos+$ad|
|00001670| 64 5d 0d 09 7d 0d 7d 0d | 0d 0d 23 20 42 72 61 63 |d]..}.}.|..# Brac|
|00001680| 65 20 6f 6e 20 6e 65 77 | 20 6c 69 6e 65 2c 20 73 |e on new| line, s|
|00001690| 61 6d 65 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 2e |ame inde|ntation.|
|000016a0| 20 49 6e 73 65 72 74 20 | 6f 6e 20 61 6e 6f 74 68 | Insert |on anoth|
|000016b0| 65 72 20 6e 65 77 20 6c | 69 6e 65 2c 20 69 6e 64 |er new l|ine, ind|
|000016c0| 65 6e 74 65 64 20 69 6e | 2e 0d 23 20 46 69 72 73 |ented in|..# Firs|
|000016d0| 74 2c 20 73 65 65 20 69 | 66 20 77 65 20 61 72 65 |t, see i|f we are|
|000016e0| 20 6f 6e 20 6e 65 77 20 | 6c 69 6e 65 2e 0d 70 72 | on new |line..pr|
|000016f0| 6f 63 20 65 6c 65 63 74 | 72 69 63 43 4c 65 66 74 |oc elect|ricCLeft|
|00001700| 20 7b 7d 20 7b 0d 09 64 | 65 6c 65 74 65 54 65 78 | {} {..d|eleteTex|
|00001710| 74 20 5b 67 65 74 50 6f | 73 5d 20 5b 73 65 6c 45 |t [getPo|s] [selE|
|00001720| 6e 64 5d 0d 09 69 66 20 | 7b 5b 67 65 74 56 61 72 |nd]..if |{[getVar|
|00001730| 20 65 6c 65 63 4c 42 72 | 61 63 65 5d 20 3d 3d 20 | elecLBr|ace] == |
|00001740| 22 30 22 7d 20 74 68 65 | 6e 20 7b 0d 09 09 69 6e |"0"} the|n {...in|
|00001750| 73 65 72 74 54 65 78 74 | 20 22 5c 7b 22 0d 09 09 |sertText| "\{"...|
|00001760| 72 65 74 75 72 6e 0d 09 | 7d 0d 09 73 65 74 20 70 |return..|}..set p|
|00001770| 6f 73 20 5b 67 65 74 50 | 6f 73 5d 0d 09 73 65 74 |os [getP|os]..set|
|00001780| 20 73 74 61 72 74 20 5b | 6c 69 6e 65 53 74 61 72 | start [|lineStar|
|00001790| 74 20 24 70 6f 73 5d 0d | 09 73 65 74 20 74 65 78 |t $pos].|.set tex|
|000017a0| 74 20 5b 67 65 74 54 65 | 78 74 20 24 73 74 61 72 |t [getTe|xt $star|
|000017b0| 74 20 24 70 6f 73 5d 0d | 09 0d 09 66 6f 72 20 7b |t $pos].|...for {|
|000017c0| 73 65 74 20 69 20 24 73 | 74 61 72 74 7d 20 7b 24 |set i $s|tart} {$|
|000017d0| 69 20 3c 20 24 70 6f 73 | 7d 20 7b 69 6e 63 72 20 |i < $pos|} {incr |
|000017e0| 69 7d 20 7b 0d 09 09 73 | 65 74 20 63 20 5b 6c 6f |i} {...s|et c [lo|
|000017f0| 6f 6b 41 74 20 24 69 5d | 0d 09 09 69 66 20 7b 28 |okAt $i]|...if {(|
|00001800| 24 63 20 21 3d 20 22 5c | 20 22 29 20 26 26 20 28 |$c != "\| ") && (|
|00001810| 24 63 20 21 3d 20 22 5c | 74 22 29 7d 20 74 68 65 |$c != "\|t")} the|
|00001820| 6e 20 7b 0d 09 09 09 73 | 65 74 20 69 6e 64 65 6e |n {....s|et inden|
|00001830| 74 61 74 69 6f 6e 20 5b | 67 65 74 54 65 78 74 20 |tation [|getText |
|00001840| 24 73 74 61 72 74 20 24 | 69 5d 0d 09 09 09 69 6e |$start $|i]....in|
|00001850| 73 65 72 74 54 65 78 74 | 20 22 5c 72 22 20 24 69 |sertText| "\r" $i|
|00001860| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 22 5c 7b 5c 72 |ndentati|on "\{\r|
|00001870| 22 20 24 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 22 |" $inden|tation "|
|00001880| 5c 74 22 0d 09 09 09 72 | 65 74 75 72 6e 0d 09 09 |\t"....r|eturn...|
|00001890| 7d 0d 09 7d 0d 09 73 65 | 74 20 69 6e 64 65 6e 74 |}..}..se|t indent|
|000018a0| 61 74 69 6f 6e 20 5b 67 | 65 74 54 65 78 74 20 24 |ation [g|etText $|
|000018b0| 73 74 61 72 74 20 24 70 | 6f 73 5d 0d 09 69 6e 73 |start $p|os]..ins|
|000018c0| 65 72 74 54 65 78 74 20 | 22 5c 7b 5c 72 22 20 24 |ertText |"\{\r" $|
|000018d0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 22 5c 74 22 |indentat|ion "\t"|
|000018e0| 0d 7d 0d 62 69 6e 64 20 | 27 5c 7b 27 20 3c 73 3e |.}.bind |'\{' <s>|
|000018f0| 20 65 6c 65 63 74 72 69 | 63 43 4c 65 66 74 0d 0d | electri|cCLeft..|
|00001900| 0d 23 20 42 72 61 63 65 | 20 6f 6e 20 6e 65 77 20 |.# Brace| on new |
|00001910| 6c 69 6e 65 2c 20 69 6d | 6d 65 64 69 61 74 65 20 |line, im|mediate |
|00001920| 63 61 72 72 69 61 67 65 | 20 72 65 74 75 72 6e 0d |carriage| return.|
|00001930| 70 72 6f 63 20 65 6c 65 | 63 74 72 69 63 43 52 69 |proc ele|ctricCRi|
|00001940| 67 68 74 20 7b 7d 20 7b | 0d 09 64 65 6c 65 74 65 |ght {} {|..delete|
|00001950| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 5b 73 |Text [ge|tPos] [s|
|00001960| 65 6c 45 6e 64 5d 0d 09 | 69 66 20 7b 5b 67 65 74 |elEnd]..|if {[get|
|00001970| 56 61 72 20 65 6c 65 63 | 52 42 72 61 63 65 5d 20 |Var elec|RBrace] |
|00001980| 3d 3d 20 22 30 22 7d 20 | 74 68 65 6e 20 7b 0d 09 |== "0"} |then {..|
|00001990| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 7d 22 |.insertT|ext "\}"|
|000019a0| 0d 09 09 62 6c 69 6e 6b | 20 5b 6d 61 74 63 68 49 |...blink| [matchI|
|000019b0| 74 20 22 5c 7d 22 20 5b | 65 78 70 72 20 5b 67 65 |t "\}" [|expr [ge|
|000019c0| 74 50 6f 73 5d 2d 32 5d | 5d 0d 09 09 72 65 74 75 |tPos]-2]|]...retu|
|000019d0| 72 6e 0d 09 7d 0d 09 73 | 65 74 20 70 6f 73 20 5b |rn..}..s|et pos [|
|000019e0| 67 65 74 50 6f 73 5d 0d | 09 73 65 74 20 73 74 61 |getPos].|.set sta|
|000019f0| 72 74 20 5b 6c 69 6e 65 | 53 74 61 72 74 20 24 70 |rt [line|Start $p|
|00001a00| 6f 73 5d 0d 09 73 65 74 | 20 74 65 78 74 20 5b 67 |os]..set| text [g|
|00001a10| 65 74 54 65 78 74 20 24 | 73 74 61 72 74 20 24 70 |etText $|start $p|
|00001a20| 6f 73 5d 0d 09 0d 09 66 | 6f 72 20 7b 73 65 74 20 |os]....f|or {set |
|00001a30| 69 20 24 73 74 61 72 74 | 7d 20 7b 24 69 20 3c 20 |i $start|} {$i < |
|00001a40| 24 70 6f 73 7d 20 7b 69 | 6e 63 72 20 69 7d 20 7b |$pos} {i|ncr i} {|
|00001a50| 0d 09 09 73 65 74 20 63 | 20 5b 6c 6f 6f 6b 41 74 |...set c| [lookAt|
|00001a60| 20 24 69 5d 0d 09 09 69 | 66 20 7b 28 24 63 20 21 | $i]...i|f {($c !|
|00001a70| 3d 20 22 5c 20 22 29 20 | 26 26 20 28 24 63 20 21 |= "\ ") |&& ($c !|
|00001a80| 3d 20 22 5c 74 22 29 7d | 20 74 68 65 6e 20 7b 0d |= "\t")}| then {.|
|00001a90| 09 09 09 73 65 74 20 69 | 6e 64 65 6e 74 61 74 69 |...set i|ndentati|
|00001aa0| 6f 6e 20 5b 67 65 74 54 | 65 78 74 20 24 73 74 61 |on [getT|ext $sta|
|00001ab0| 72 74 20 5b 65 78 70 72 | 20 24 69 2d 31 5d 5d 0d |rt [expr| $i-1]].|
|00001ac0| 09 09 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 5c |...inser|tText "\|
|00001ad0| 72 22 20 24 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |r" $inde|ntation |
|00001ae0| 22 5c 7d 5c 72 22 20 24 | 69 6e 64 65 6e 74 61 74 |"\}\r" $|indentat|
|00001af0| 69 6f 6e 0d 09 09 09 62 | 6c 69 6e 6b 20 5b 6d 61 |ion....b|link [ma|
|00001b00| 74 63 68 49 74 20 22 5c | 7d 22 20 5b 65 78 70 72 |tchIt "\|}" [expr|
|00001b10| 20 24 70 6f 73 2d 31 5d | 5d 0d 09 09 09 72 65 74 | $pos-1]|]....ret|
|00001b20| 75 72 6e 0d 09 09 7d 0d | 09 7d 0d 09 69 66 20 7b |urn...}.|.}..if {|
|00001b30| 24 73 74 61 72 74 20 3d | 3d 20 24 70 6f 73 7d 20 |$start =|= $pos} |
|00001b40| 7b 0d 09 09 73 65 74 20 | 69 6e 64 65 6e 74 61 74 |{...set |indentat|
|00001b50| 69 6f 6e 20 22 22 0d 09 | 7d 20 65 6c 73 65 20 7b |ion ""..|} else {|
|00001b60| 0d 09 09 73 65 74 20 69 | 6e 64 65 6e 74 61 74 69 |...set i|ndentati|
|00001b70| 6f 6e 20 5b 67 65 74 54 | 65 78 74 20 24 73 74 61 |on [getT|ext $sta|
|00001b80| 72 74 20 5b 65 78 70 72 | 20 24 69 2d 31 5d 5d 0d |rt [expr| $i-1]].|
|00001b90| 09 7d 0d 09 64 65 6c 65 | 74 65 54 65 78 74 20 24 |.}..dele|teText $|
|00001ba0| 73 74 61 72 74 20 24 70 | 6f 73 0d 09 69 6e 73 65 |start $p|os..inse|
|00001bb0| 72 74 54 65 78 74 20 24 | 69 6e 64 65 6e 74 61 74 |rtText $|indentat|
|00001bc0| 69 6f 6e 20 22 5c 7d 5c | 72 22 20 24 69 6e 64 65 |ion "\}\|r" $inde|
|00001bd0| 6e 74 61 74 69 6f 6e 0d | 09 62 6c 69 6e 6b 20 5b |ntation.|.blink [|
|00001be0| 6d 61 74 63 68 49 74 20 | 22 5c 7d 22 20 5b 65 78 |matchIt |"\}" [ex|
|00001bf0| 70 72 20 24 73 74 61 72 | 74 2d 32 5d 5d 0d 7d 0d |pr $star|t-2]].}.|
|00001c00| 62 69 6e 64 20 27 5c 7d | 27 20 3c 73 3e 20 65 6c |bind '\}|' <s> el|
|00001c10| 65 63 74 72 69 63 43 52 | 69 67 68 74 0d 0d 0d 23 |ectricCR|ight...#|
|00001c20| 20 42 72 61 63 65 20 6f | 6e 20 6e 65 77 20 6c 69 | Brace o|n new li|
|00001c30| 6e 65 2c 20 69 6d 6d 65 | 64 69 61 74 65 20 63 61 |ne, imme|diate ca|
|00001c40| 72 72 69 61 67 65 20 72 | 65 74 75 72 6e 2e 20 57 |rriage r|eturn. W|
|00001c50| 65 20 64 6f 6e 27 74 20 | 64 6f 20 6f 75 72 20 65 |e don't |do our e|
|00001c60| 6c 65 63 74 72 69 63 20 | 73 74 75 66 66 0d 23 20 |lectric |stuff.# |
|00001c70| 69 66 20 77 65 20 61 72 | 65 20 69 6e 20 74 68 65 |if we ar|e in the|
|00001c80| 20 6d 69 64 64 6c 65 20 | 6f 66 20 61 20 66 6f 72 | middle |of a for|
|00001c90| 20 73 74 61 74 65 6d 65 | 6e 74 2e 0d 70 72 6f 63 | stateme|nt..proc|
|00001ca0| 20 65 6c 65 63 74 72 69 | 63 43 53 65 6d 69 20 7b | electri|cCSemi {|
|00001cb0| 7d 20 7b 0d 09 64 65 6c | 65 74 65 54 65 78 74 20 |} {..del|eteText |
|00001cc0| 5b 67 65 74 50 6f 73 5d | 20 5b 73 65 6c 45 6e 64 |[getPos]| [selEnd|
|00001cd0| 5d 0d 09 69 66 20 7b 5b | 67 65 74 56 61 72 20 65 |]..if {[|getVar e|
|00001ce0| 6c 65 63 74 72 69 63 53 | 65 6d 69 5d 20 3d 3d 20 |lectricS|emi] == |
|00001cf0| 22 30 22 7d 20 74 68 65 | 6e 20 7b 0d 09 09 69 6e |"0"} the|n {...in|
|00001d00| 73 65 72 74 54 65 78 74 | 20 22 3b 22 0d 09 09 72 |sertText| ";"...r|
|00001d10| 65 74 75 72 6e 0d 09 7d | 0d 09 73 65 74 20 70 6f |eturn..}|..set po|
|00001d20| 73 20 5b 67 65 74 50 6f | 73 5d 0d 09 73 65 74 20 |s [getPo|s]..set |
|00001d30| 73 74 61 72 74 20 5b 6c | 69 6e 65 53 74 61 72 74 |start [l|ineStart|
|00001d40| 20 24 70 6f 73 5d 0d 09 | 73 65 74 20 74 65 78 74 | $pos]..|set text|
|00001d50| 20 5b 67 65 74 54 65 78 | 74 20 24 73 74 61 72 74 | [getTex|t $start|
|00001d60| 20 24 70 6f 73 5d 0d 09 | 0d 09 69 66 20 7b 5b 73 | $pos]..|..if {[s|
|00001d70| 74 72 69 6e 67 20 66 69 | 72 73 74 20 22 66 6f 72 |tring fi|rst "for|
|00001d80| 22 20 24 74 65 78 74 5d | 20 21 3d 20 22 2d 31 22 |" $text]| != "-1"|
|00001d90| 7d 20 7b 0d 09 09 73 65 | 74 20 6c 65 66 74 73 20 |} {...se|t lefts |
|00001da0| 30 0d 09 09 73 65 74 20 | 72 69 67 68 74 73 20 30 |0...set |rights 0|
|00001db0| 0d 09 09 73 65 74 20 6c | 65 6e 20 5b 73 74 72 69 |...set l|en [stri|
|00001dc0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 74 65 78 74 5d |ng lengt|h $text]|
|00001dd0| 0d 09 09 66 6f 72 20 7b | 73 65 74 20 69 20 30 7d |...for {|set i 0}|
|00001de0| 20 7b 24 69 20 3c 20 24 | 6c 65 6e 7d 20 7b 69 6e | {$i < $|len} {in|
|00001df0| 63 72 20 69 7d 20 7b 0d | 09 09 09 63 61 73 65 20 |cr i} {.|...case |
|00001e00| 5b 73 74 72 69 6e 67 20 | 69 6e 64 65 78 20 24 74 |[string |index $t|
|00001e10| 65 78 74 20 24 69 5d 20 | 69 6e 20 7b 0d 09 09 09 |ext $i] |in {....|
|00001e20| 09 22 28 22 09 7b 20 69 | 6e 63 72 20 6c 65 66 74 |."(".{ i|ncr left|
|00001e30| 73 20 7d 0d 09 09 09 09 | 22 29 22 09 7b 20 69 6e |s }.....|")".{ in|
|00001e40| 63 72 20 72 69 67 68 74 | 73 20 7d 0d 09 09 09 7d |cr right|s }....}|
|00001e50| 0d 09 09 7d 0d 09 09 67 | 6c 6f 62 61 6c 20 67 6c |...}...g|lobal gl|
|00001e60| 6f 62 73 0d 09 09 73 65 | 74 20 67 6c 6f 62 73 20 |obs...se|t globs |
|00001e70| 5b 6c 69 73 74 20 24 6c | 65 66 74 73 20 24 72 69 |[list $l|efts $ri|
|00001e80| 67 68 74 73 20 24 6c 65 | 6e 5d 0d 09 09 69 66 20 |ghts $le|n]...if |
|00001e90| 7b 24 6c 65 66 74 73 20 | 21 3d 20 24 72 69 67 68 |{$lefts |!= $righ|
|00001ea0| 74 73 7d 20 7b 0d 09 09 | 09 69 6e 73 65 72 74 54 |ts} {...|.insertT|
|00001eb0| 65 78 74 20 22 3b 22 0d | 09 09 09 72 65 74 75 72 |ext ";".|...retur|
|00001ec0| 6e 0d 09 09 7d 0d 09 7d | 0d 09 0d 09 69 6e 73 65 |n...}..}|....inse|
|00001ed0| 72 74 54 65 78 74 20 22 | 3b 5c 72 22 20 5b 69 6e |rtText "|;\r" [in|
|00001ee0| 64 65 6e 74 53 74 72 69 | 6e 67 20 24 70 6f 73 5d |dentStri|ng $pos]|
|00001ef0| 0d 7d 0d 62 69 6e 64 20 | 27 5c 3b 27 20 65 6c 65 |.}.bind |'\;' ele|
|00001f00| 63 74 72 69 63 43 53 65 | 6d 69 0d 0d 23 3d 3d 3d |ctricCSe|mi..#===|
|00001f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 70 72 6f 63 |========|===.proc|
|00001f60| 20 6e 6f 72 6d 61 6c 4c | 65 66 74 42 72 61 63 6b | normalL|eftBrack|
|00001f70| 65 74 20 7b 7d 20 7b 0d | 09 69 6e 73 65 72 74 54 |et {} {.|.insertT|
|00001f80| 65 78 74 20 22 5c 7b 22 | 0d 7d 0d 70 72 6f 63 20 |ext "\{"|.}.proc |
|00001f90| 6e 6f 72 6d 61 6c 52 69 | 67 68 74 42 72 61 63 6b |normalRi|ghtBrack|
|00001fa0| 65 74 20 7b 7d 20 7b 0d | 09 69 6e 73 65 72 74 54 |et {} {.|.insertT|
|00001fb0| 65 78 74 20 22 5c 7d 22 | 0d 7d 0d 62 69 6e 64 20 |ext "\}"|.}.bind |
|00001fc0| 27 5c 5b 27 20 3c 7a 73 | 3e 20 20 6e 6f 72 6d 61 |'\[' <zs|> norma|
|00001fd0| 6c 4c 65 66 74 42 72 61 | 63 6b 65 74 0d 62 69 6e |lLeftBra|cket.bin|
|00001fe0| 64 20 27 5c 5d 27 20 3c | 7a 73 3e 20 20 6e 6f 72 |d '\]' <|zs> nor|
|00001ff0| 6d 61 6c 52 69 67 68 74 | 42 72 61 63 6b 65 74 0d |malRight|Bracket.|
|00002000| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00002010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00002050| 0d 09 09 09 0d 23 20 53 | 65 6c 65 63 74 20 74 68 |.....# S|elect th|
|00002060| 65 20 6e 65 78 74 20 6f | 72 20 63 75 72 72 65 6e |e next o|r curren|
|00002070| 74 20 77 6f 72 64 2e 20 | 49 66 20 77 6f 72 64 20 |t word. |If word |
|00002080| 61 6c 72 65 61 64 79 20 | 73 65 6c 65 63 74 65 64 |already |selected|
|00002090| 2c 20 77 69 6c 6c 20 67 | 6f 20 74 6f 20 6e 65 78 |, will g|o to nex|
|000020a0| 74 2e 0d 70 72 6f 63 20 | 68 69 6c 69 74 65 57 6f |t..proc |hiliteWo|
|000020b0| 72 64 20 7b 7d 20 7b 0d | 09 66 6f 72 77 61 72 64 |rd {} {.|.forward|
|000020c0| 43 68 61 72 0d 09 66 6f | 72 77 61 72 64 57 6f 72 |Char..fo|rwardWor|
|000020d0| 64 0d 09 73 65 74 20 73 | 74 61 72 74 20 5b 67 65 |d..set s|tart [ge|
|000020e0| 74 50 6f 73 5d 0d 09 62 | 61 63 6b 77 61 72 64 57 |tPos]..b|ackwardW|
|000020f0| 6f 72 64 0d 09 73 65 6c | 65 63 74 20 24 73 74 61 |ord..sel|ect $sta|
|00002100| 72 74 20 5b 67 65 74 50 | 6f 73 5d 0d 7d 0d 0d 62 |rt [getP|os].}..b|
|00002110| 69 6e 64 20 27 68 27 20 | 3c 7a 3e 20 68 69 6c 69 |ind 'h' |<z> hili|
|00002120| 74 65 57 6f 72 64 0d 0d | 23 20 3d 3d 3d 3d 3d 3d |teWord..|# ======|
|00002130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 53 69 6d |========|==.# Sim|
|00002180| 70 6c 65 20 6d 61 72 6b | 20 73 74 61 63 6b 20 69 |ple mark| stack i|
|00002190| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 0d 23 20 |mplement|ation.# |
|000021a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021f0| 0d 73 65 74 20 6d 61 72 | 6b 4e 61 6d 65 20 30 0d |.set mar|kName 0.|
|00002200| 73 65 74 20 6d 61 72 6b | 53 74 61 63 6b 20 22 22 |set mark|Stack ""|
|00002210| 0d 0d 0d 70 72 6f 63 20 | 70 75 73 68 4d 61 72 6b |...proc |pushMark|
|00002220| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 6d 61 | {} {..g|lobal ma|
|00002230| 72 6b 53 74 61 63 6b 0d | 09 67 6c 6f 62 61 6c 20 |rkStack.|.global |
|00002240| 6d 61 72 6b 4e 61 6d 65 | 0d 09 0d 09 73 65 74 20 |markName|....set |
|00002250| 6e 61 6d 65 20 6d 61 72 | 6b 24 6d 61 72 6b 4e 61 |name mar|k$markNa|
|00002260| 6d 65 0d 09 69 6e 63 72 | 20 6d 61 72 6b 4e 61 6d |me..incr| markNam|
|00002270| 65 0d 09 63 72 65 61 74 | 65 54 4d 61 72 6b 20 24 |e..creat|eTMark $|
|00002280| 6e 61 6d 65 20 5b 67 65 | 74 50 6f 73 5d 0d 09 73 |name [ge|tPos]..s|
|00002290| 65 74 20 66 69 6c 65 4e | 61 6d 65 20 5b 6c 69 6e |et fileN|ame [lin|
|000022a0| 64 65 78 20 5b 77 69 6e | 4e 61 6d 65 73 5d 20 30 |dex [win|Names] 0|
|000022b0| 5d 0d 09 73 65 74 20 6d | 61 72 6b 53 74 61 63 6b |]..set m|arkStack|
|000022c0| 20 5b 6c 69 6e 73 65 72 | 74 20 24 6d 61 72 6b 53 | [linser|t $markS|
|000022d0| 74 61 63 6b 20 30 20 5b | 6c 69 73 74 20 24 66 69 |tack 0 [|list $fi|
|000022e0| 6c 65 4e 61 6d 65 20 24 | 6e 61 6d 65 5d 5d 0d 09 |leName $|name]]..|
|000022f0| 6d 65 73 73 61 67 65 20 | 22 4d 61 72 6b 20 50 75 |message |"Mark Pu|
|00002300| 73 68 65 64 22 0d 7d 0d | 0d 70 72 6f 63 20 70 6f |shed".}.|.proc po|
|00002310| 70 4d 61 72 6b 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |pMark {}| {..glob|
|00002320| 61 6c 20 6d 61 72 6b 53 | 74 61 63 6b 0d 09 69 66 |al markS|tack..if|
|00002330| 20 7b 5b 6c 6c 65 6e 67 | 74 68 20 24 6d 61 72 6b | {[lleng|th $mark|
|00002340| 53 74 61 63 6b 5d 20 3d | 3d 20 22 30 22 7d 20 7b |Stack] =|= "0"} {|
|00002350| 0d 09 09 61 6c 65 72 74 | 6e 6f 74 65 20 22 54 68 |...alert|note "Th|
|00002360| 65 20 6d 61 72 6b 20 73 | 74 61 63 6b 20 69 73 20 |e mark s|tack is |
|00002370| 65 6d 70 74 79 21 22 0d | 09 09 72 65 74 75 72 6e |empty!".|..return|
|00002380| 0d 09 7d 0d 09 73 65 74 | 20 6d 61 72 6b 20 5b 6c |..}..set| mark [l|
|00002390| 69 6e 64 65 78 20 5b 6c | 69 6e 64 65 78 20 24 6d |index [l|index $m|
|000023a0| 61 72 6b 53 74 61 63 6b | 20 30 5d 20 31 5d 0d 09 |arkStack| 0] 1]..|
|000023b0| 73 65 74 20 6d 61 72 6b | 53 74 61 63 6b 20 5b 6c |set mark|Stack [l|
|000023c0| 72 65 70 6c 61 63 65 20 | 24 6d 61 72 6b 53 74 61 |replace |$markSta|
|000023d0| 63 6b 20 30 20 30 5d 0d | 09 67 6f 74 6f 54 4d 61 |ck 0 0].|.gotoTMa|
|000023e0| 72 6b 20 24 6d 61 72 6b | 0d 09 6d 65 73 73 61 67 |rk $mark|..messag|
|000023f0| 65 20 22 4d 61 72 6b 20 | 50 6f 70 70 65 64 22 0d |e "Mark |Popped".|
|00002400| 7d 0d 0d 09 0d 23 20 52 | 65 74 75 72 6e 73 20 27 |}....# R|eturns '|
|00002410| 6c 69 73 74 27 20 6d 69 | 6e 75 73 20 61 6c 6c 20 |list' mi|nus all |
|00002420| 74 6f 70 2d 6c 65 76 65 | 6c 20 65 6c 65 6d 65 6e |top-leve|l elemen|
|00002430| 74 73 20 6d 61 74 63 68 | 69 6e 67 20 27 70 61 74 |ts match|ing 'pat|
|00002440| 27 2e 0d 23 20 55 73 65 | 64 20 69 6e 20 27 63 6c |'..# Use|d in 'cl|
|00002450| 6f 73 65 48 6f 6f 6b 73 | 27 20 74 6f 20 70 72 75 |oseHooks|' to pru|
|00002460| 6e 65 20 74 68 65 20 6d | 61 72 6b 20 73 74 61 63 |ne the m|ark stac|
|00002470| 6b 2e 0d 70 72 6f 63 20 | 72 65 6d 6f 76 65 50 61 |k..proc |removePa|
|00002480| 74 20 7b 6c 69 73 74 20 | 70 61 74 7d 20 7b 0d 09 |t {list |pat} {..|
|00002490| 77 68 69 6c 65 20 31 20 | 7b 0d 09 09 73 65 74 20 |while 1 |{...set |
|000024a0| 69 6e 64 20 5b 6c 73 65 | 61 72 63 68 20 24 6c 69 |ind [lse|arch $li|
|000024b0| 73 74 20 24 70 61 74 5d | 0d 09 09 69 66 20 7b 24 |st $pat]|...if {$|
|000024c0| 69 6e 64 20 3d 3d 20 22 | 2d 31 22 7d 20 7b 72 65 |ind == "|-1"} {re|
|000024d0| 74 75 72 6e 20 24 6c 69 | 73 74 7d 0d 09 09 73 65 |turn $li|st}...se|
|000024e0| 74 20 6c 69 73 74 20 5b | 6c 72 65 70 6c 61 63 65 |t list [|lreplace|
|000024f0| 20 24 6c 69 73 74 20 24 | 69 6e 64 20 24 69 6e 64 | $list $|ind $ind|
|00002500| 5d 0d 09 7d 0d 7d 0d 0d | 0d 0d 23 3d 3d 3d 3d 3d |]..}.}..|..#=====|
|00002510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002550| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 23 20 48 6f 6f 6b 20 |========|.# Hook |
|00002560| 70 72 6f 63 73 20 72 65 | 63 6f 67 6e 69 7a 65 64 |procs re|cognized|
|00002570| 3a 20 22 6f 70 65 6e 48 | 6f 6f 6b 22 2c 20 22 63 |: "openH|ook", "c|
|00002580| 6c 6f 73 65 48 6f 6f 6b | 22 2c 20 22 61 63 74 69 |loseHook|", "acti|
|00002590| 76 61 74 65 48 6f 6f 6b | 22 2c 20 22 64 65 61 63 |vateHook|", "deac|
|000025a0| 74 69 76 61 74 65 48 6f | 6f 6b 22 2c 20 0d 23 09 |tivateHo|ok", .#.|
|000025b0| 09 09 09 20 09 09 20 22 | 73 75 73 70 65 6e 64 48 |... .. "|suspendH|
|000025c0| 6f 6f 6b 22 2c 20 61 6e | 64 20 22 72 65 73 75 6d |ook", an|d "resum|
|000025d0| 65 48 6f 6f 6b 22 2e 0d | 23 3d 3d 3d 3d 3d 3d 3d |eHook"..|#=======|
|000025e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000025f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002610| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002620| 3d 3d 3d 3d 3d 3d 0d 0d | 23 20 53 75 66 66 69 78 |======..|# Suffix|
|00002630| 20 68 6f 6f 6b 73 20 2d | 20 73 65 74 20 73 70 65 | hooks -| set spe|
|00002640| 63 69 66 69 63 20 6d 6f | 64 65 73 20 77 68 65 6e |cific mo|des when|
|00002650| 20 66 69 6c 65 73 20 6f | 70 65 6e 65 64 2e 0d 70 | files o|pened..p|
|00002660| 72 6f 63 20 6f 70 65 6e | 48 6f 6f 6b 20 6e 61 6d |roc open|Hook nam|
|00002670| 65 20 7b 0d 09 61 63 74 | 69 76 61 74 65 48 6f 6f |e {..act|ivateHoo|
|00002680| 6b 20 24 6e 61 6d 65 0d | 7d 0d 0d 23 20 43 6c 65 |k $name.|}..# Cle|
|00002690| 61 6e 20 75 70 20 74 68 | 65 20 6d 61 72 6b 20 73 |an up th|e mark s|
|000026a0| 74 61 63 6b 2e 0d 70 72 | 6f 63 20 63 6c 6f 73 65 |tack..pr|oc close|
|000026b0| 48 6f 6f 6b 20 6e 61 6d | 65 20 7b 0d 09 67 6c 6f |Hook nam|e {..glo|
|000026c0| 62 61 6c 20 6d 61 72 6b | 53 74 61 63 6b 0d 09 73 |bal mark|Stack..s|
|000026d0| 65 74 20 6d 61 72 6b 53 | 74 61 63 6b 20 5b 72 65 |et markS|tack [re|
|000026e0| 6d 6f 76 65 50 61 74 20 | 24 6d 61 72 6b 53 74 61 |movePat |$markSta|
|000026f0| 63 6b 20 24 6e 61 6d 65 | 2a 5d 0d 7d 0d 0d 70 72 |ck $name|*].}..pr|
|00002700| 6f 63 20 61 63 74 69 76 | 61 74 65 48 6f 6f 6b 20 |oc activ|ateHook |
|00002710| 6e 61 6d 65 20 7b 0d 09 | 63 61 73 65 20 24 6e 61 |name {..|case $na|
|00002720| 6d 65 20 69 6e 20 7b 0d | 09 09 22 2a 2e 63 22 20 |me in {.|.."*.c" |
|00002730| 09 09 73 65 74 43 4d 6f | 64 65 0d 09 09 22 2a 2e |..setCMo|de..."*.|
|00002740| 68 22 20 09 09 73 65 74 | 43 4d 6f 64 65 0d 09 09 |h" ..set|CMode...|
|00002750| 22 2a 2e 66 22 20 20 09 | 09 73 65 74 46 6f 72 74 |"*.f" .|.setFort|
|00002760| 72 61 6e 4d 6f 64 65 0d | 09 09 22 2a 2e 74 63 6c |ranMode.|.."*.tcl|
|00002770| 22 20 09 73 65 74 54 63 | 6c 4d 6f 64 65 0d 09 09 |" .setTc|lMode...|
|00002780| 7b 2a 74 63 6c 5c 20 73 | 68 2a 7d 09 73 65 74 53 |{*tcl\ s|h*}.setS|
|00002790| 68 65 6c 6c 4d 6f 64 65 | 0d 09 09 22 2a 2e 74 65 |hellMode|..."*.te|
|000027a0| 78 22 09 09 73 65 74 54 | 65 78 4d 6f 64 65 0d 09 |x"..setT|exMode..|
|000027b0| 09 64 65 66 61 75 6c 74 | 09 09 73 65 74 54 65 78 |.default|..setTex|
|000027c0| 74 4d 6f 64 65 0d 09 7d | 0d 7d 0d 0d 70 72 6f 63 |tMode..}|.}..proc|
|000027d0| 20 64 65 61 63 74 69 76 | 61 74 65 48 6f 6f 6b 20 | deactiv|ateHook |
|000027e0| 6e 61 6d 65 20 7b 0d 7d | 0d 0d 70 72 6f 63 20 73 |name {.}|..proc s|
|000027f0| 75 73 70 65 6e 64 48 6f | 6f 6b 20 6e 61 6d 65 20 |uspendHo|ok name |
|00002800| 7b 0d 7d 0d 0d 70 72 6f | 63 20 72 65 73 75 6d 65 |{.}..pro|c resume|
|00002810| 48 6f 6f 6b 20 6e 61 6d | 65 20 7b 0d 7d 0d 0d 0d |Hook nam|e {.}...|
|00002820| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00002830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002840| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00002870| 20 4c 6f 61 64 20 4c 61 | 54 65 58 20 64 65 66 69 | Load La|TeX defi|
|00002880| 6e 69 74 69 6f 6e 73 0d | 23 3d 3d 3d 3d 3d 3d 3d |nitions.|#=======|
|00002890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028d0| 3d 3d 3d 3d 3d 3d 0d 0d | 23 20 43 6f 6d 6d 65 6e |======..|# Commen|
|000028e0| 74 20 74 68 69 73 20 6c | 69 6e 65 20 6f 75 74 20 |t this l|ine out |
|000028f0| 69 66 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 75 |if you w|ant to u|
|00002900| 73 65 20 4c 61 54 65 58 | 20 6d 61 63 72 6f 73 2e |se LaTeX| macros.|
|00002910| 0d 73 65 74 20 6c 61 73 | 74 4d 6f 64 65 20 30 0d |.set las|tMode 0.|
|00002920| 73 65 74 20 75 73 69 6e | 67 4c 61 74 65 78 20 31 |set usin|gLatex 1|
|00002930| 0d 69 66 20 7b 24 75 73 | 69 6e 67 4c 61 74 65 78 |.if {$us|ingLatex|
|00002940| 7d 20 7b 73 6f 75 72 63 | 65 20 22 24 48 4f 4d 45 |} {sourc|e "$HOME|
|00002950| 3a 6c 61 74 65 78 2e 74 | 63 6c 22 7d 0d 0d 23 20 |:latex.t|cl"}..# |
|00002960| 72 74 61 20 20 43 72 65 | 61 74 69 6e 67 20 74 65 |rta Cre|ating te|
|00002970| 78 57 61 73 4c 61 73 74 | 20 76 61 72 69 61 62 6c |xWasLast| variabl|
|00002980| 65 0d 73 65 74 20 74 65 | 78 57 61 73 4c 61 73 74 |e.set te|xWasLast|
|00002990| 20 30 0d 23 20 72 74 61 | 20 46 6f 6c 6c 6f 77 69 | 0.# rta| Followi|
|000029a0| 6e 67 20 63 68 61 6e 67 | 65 64 20 66 72 6f 6d 20 |ng chang|ed from |
|000029b0| 54 68 69 6e 6b 43 20 74 | 6f 20 4d 50 57 0d 70 72 |ThinkC t|o MPW.pr|
|000029c0| 6f 63 20 73 77 69 74 63 | 68 54 6f 4d 50 57 20 7b |oc switc|hToMPW {|
|000029d0| 7d 20 7b 0d 09 73 77 69 | 74 63 68 54 6f 20 7b 4d |} {..swi|tchTo {M|
|000029e0| 50 57 20 53 68 65 6c 6c | 7d 0d 7d 0d 0d 23 20 4d |PW Shell|}.}..# M|
|000029f0| 6f 64 65 73 0d 0d 23 20 | 27 43 27 20 70 72 6f 67 |odes..# |'C' prog|
|00002a00| 72 61 6d 6d 69 6e 67 20 | 6d 6f 64 65 20 0d 70 72 |ramming |mode .pr|
|00002a10| 6f 63 20 73 65 74 43 4d | 6f 64 65 20 7b 7d 20 7b |oc setCM|ode {} {|
|00002a20| 0d 09 67 6c 6f 62 61 6c | 20 6d 6f 64 65 49 74 65 |..global| modeIte|
|00002a30| 6d 4e 75 6d 0d 09 63 68 | 61 6e 67 65 4d 6f 64 65 |mNum..ch|angeMode|
|00002a40| 20 22 43 22 0d 09 69 6e | 73 65 72 74 4d 65 6e 75 | "C"..in|sertMenu|
|00002a50| 20 22 43 22 0d 09 73 65 | 74 56 61 72 20 65 6c 65 | "C"..se|tVar ele|
|00002a60| 63 4c 42 72 61 63 65 20 | 31 0d 09 73 65 74 56 61 |cLBrace |1..setVa|
|00002a70| 72 20 65 6c 65 63 52 42 | 72 61 63 65 20 31 0d 09 |r elecRB|race 1..|
|00002a80| 73 65 74 56 61 72 20 65 | 6c 65 63 74 72 69 63 53 |setVar e|lectricS|
|00002a90| 65 6d 69 20 31 0d 09 73 | 65 74 56 61 72 20 77 6f |emi 1..s|etVar wo|
|00002aa0| 72 64 57 72 61 70 20 30 | 0d 09 73 65 74 56 61 72 |rdWrap 0|..setVar|
|00002ab0| 20 66 75 6e 63 45 78 70 | 72 20 7b 5e 5b 5e 20 5c | funcExp|r {^[^ \|
|00002ac0| 74 5c 28 23 5c 72 2f 40 | 5d 2e 2a 5c 28 2e 2a 5c |t\(#\r/@|].*\(.*\|
|00002ad0| 29 24 7d 0d 09 73 65 74 | 56 61 72 20 73 6f 72 74 |)$}..set|Var sort|
|00002ae0| 65 64 49 73 44 65 66 61 | 75 6c 74 20 31 0d 09 73 |edIsDefa|ult 1..s|
|00002af0| 65 74 56 61 72 20 66 75 | 6e 63 54 69 74 6c 65 20 |etVar fu|ncTitle |
|00002b00| 22 46 75 6e 63 22 0d 09 | 68 69 6c 69 74 65 4d 65 |"Func"..|hiliteMe|
|00002b10| 6e 75 49 74 65 6d 20 4d | 69 73 63 20 24 6d 6f 64 |nuItem M|isc $mod|
|00002b20| 65 49 74 65 6d 4e 75 6d | 20 6f 6e 0d 09 73 65 74 |eItemNum| on..set|
|00002b30| 20 6d 6f 64 65 49 74 65 | 6d 4e 75 6d 20 37 0d 09 | modeIte|mNum 7..|
|00002b40| 68 69 6c 69 74 65 4d 65 | 6e 75 49 74 65 6d 20 4d |hiliteMe|nuItem M|
|00002b50| 69 73 63 20 24 6d 6f 64 | 65 49 74 65 6d 4e 75 6d |isc $mod|eItemNum|
|00002b60| 20 6f 66 66 0d 7d 0d 0d | 0d 23 20 46 6f 72 74 72 | off.}..|.# Fortr|
|00002b70| 61 6e 20 70 72 6f 67 72 | 61 6d 6d 69 6e 67 20 6d |an progr|amming m|
|00002b80| 6f 64 65 20 0d 70 72 6f | 63 20 73 65 74 46 6f 72 |ode .pro|c setFor|
|00002b90| 74 72 61 6e 4d 6f 64 65 | 20 7b 7d 20 7b 0d 09 67 |tranMode| {} {..g|
|00002ba0| 6c 6f 62 61 6c 20 6d 6f | 64 65 49 74 65 6d 4e 75 |lobal mo|deItemNu|
|00002bb0| 6d 0d 0d 09 63 68 61 6e | 67 65 4d 6f 64 65 20 22 |m...chan|geMode "|
|00002bc0| 46 6f 72 74 22 0d 09 73 | 65 74 56 61 72 20 65 6c |Fort"..s|etVar el|
|00002bd0| 65 63 4c 42 72 61 63 65 | 20 30 0d 09 73 65 74 56 |ecLBrace| 0..setV|
|00002be0| 61 72 20 65 6c 65 63 52 | 42 72 61 63 65 20 30 0d |ar elecR|Brace 0.|
|00002bf0| 09 73 65 74 56 61 72 20 | 65 6c 65 63 74 72 69 63 |.setVar |electric|
|00002c00| 53 65 6d 69 20 30 0d 09 | 73 65 74 56 61 72 20 77 |Semi 0..|setVar w|
|00002c10| 6f 72 64 57 72 61 70 20 | 30 0d 09 73 65 74 56 61 |ordWrap |0..setVa|
|00002c20| 72 20 66 75 6e 63 45 78 | 70 72 20 7b 5e 28 20 20 |r funcEx|pr {^( |
|00002c30| 20 20 20 20 7c 5c 74 29 | 28 73 75 62 72 6f 75 74 | |\t)|(subrout|
|00002c40| 69 6e 65 7c 66 75 6e 63 | 74 69 6f 6e 7c 53 55 42 |ine|func|tion|SUB|
|00002c50| 52 4f 55 54 49 4e 45 7c | 46 55 4e 43 54 49 4f 4e |ROUTINE||FUNCTION|
|00002c60| 29 2e 2a 5c 28 5b 5e 5c | 72 5d 2a 5c 29 24 7d 0d |).*\([^\|r]*\)$}.|
|00002c70| 09 73 65 74 56 61 72 20 | 73 6f 72 74 65 64 49 73 |.setVar |sortedIs|
|00002c80| 44 65 66 61 75 6c 74 20 | 30 0d 09 73 65 74 56 61 |Default |0..setVa|
|00002c90| 72 20 66 75 6e 63 54 69 | 74 6c 65 20 22 46 75 6e |r funcTi|tle "Fun|
|00002ca0| 63 22 0d 09 68 69 6c 69 | 74 65 4d 65 6e 75 49 74 |c"..hili|teMenuIt|
|00002cb0| 65 6d 20 4d 69 73 63 20 | 24 6d 6f 64 65 49 74 65 |em Misc |$modeIte|
|00002cc0| 6d 4e 75 6d 20 6f 6e 0d | 09 73 65 74 20 6d 6f 64 |mNum on.|.set mod|
|00002cd0| 65 49 74 65 6d 4e 75 6d | 20 38 0d 09 68 69 6c 69 |eItemNum| 8..hili|
|00002ce0| 74 65 4d 65 6e 75 49 74 | 65 6d 20 4d 69 73 63 20 |teMenuIt|em Misc |
|00002cf0| 24 6d 6f 64 65 49 74 65 | 6d 4e 75 6d 20 6f 66 66 |$modeIte|mNum off|
|00002d00| 0d 7d 0d 0d 0d 23 20 41 | 6c 70 68 61 20 54 43 4c |.}...# A|lpha TCL|
|00002d10| 20 70 72 6f 67 72 61 6d | 6d 69 6e 67 20 6d 6f 64 | program|ming mod|
|00002d20| 65 0d 70 72 6f 63 20 73 | 65 74 54 63 6c 4d 6f 64 |e.proc s|etTclMod|
|00002d30| 65 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 74 |e {} {..|global t|
|00002d40| 65 78 57 61 73 4c 61 73 | 74 0d 09 67 6c 6f 62 61 |exWasLas|t..globa|
|00002d50| 6c 20 6d 6f 64 65 49 74 | 65 6d 4e 75 6d 0d 0d 09 |l modeIt|emNum...|
|00002d60| 63 68 61 6e 67 65 4d 6f | 64 65 20 22 54 63 6c 22 |changeMo|de "Tcl"|
|00002d70| 0d 09 73 65 74 56 61 72 | 20 65 6c 65 63 4c 42 72 |..setVar| elecLBr|
|00002d80| 61 63 65 20 30 0d 09 73 | 65 74 56 61 72 20 65 6c |ace 0..s|etVar el|
|00002d90| 65 63 52 42 72 61 63 65 | 20 30 0d 09 73 65 74 56 |ecRBrace| 0..setV|
|00002da0| 61 72 20 65 6c 65 63 74 | 72 69 63 53 65 6d 69 20 |ar elect|ricSemi |
|00002db0| 30 0d 09 73 65 74 56 61 | 72 20 77 6f 72 64 57 72 |0..setVa|r wordWr|
|00002dc0| 61 70 20 30 0d 09 73 65 | 74 56 61 72 20 66 75 6e |ap 0..se|tVar fun|
|00002dd0| 63 54 69 74 6c 65 20 22 | 50 72 6f 63 22 0d 09 73 |cTitle "|Proc"..s|
|00002de0| 65 74 56 61 72 20 66 75 | 6e 63 45 78 70 72 20 7b |etVar fu|ncExpr {|
|00002df0| 5e 70 72 6f 63 20 2a 28 | 5b 61 2d 7a 41 2d 5a 30 |^proc *(|[a-zA-Z0|
|00002e00| 2d 39 2d 5d 2a 29 7d 0d | 09 73 65 74 56 61 72 20 |-9-]*)}.|.setVar |
|00002e10| 66 75 6e 63 50 61 72 20 | 31 0d 09 73 65 74 56 61 |funcPar |1..setVa|
|00002e20| 72 20 73 6f 72 74 65 64 | 49 73 44 65 66 61 75 6c |r sorted|IsDefaul|
|00002e30| 74 20 31 0d 09 68 69 6c | 69 74 65 4d 65 6e 75 49 |t 1..hil|iteMenuI|
|00002e40| 74 65 6d 20 4d 69 73 63 | 20 24 6d 6f 64 65 49 74 |tem Misc| $modeIt|
|00002e50| 65 6d 4e 75 6d 20 6f 6e | 0d 09 73 65 74 20 6d 6f |emNum on|..set mo|
|00002e60| 64 65 49 74 65 6d 4e 75 | 6d 20 31 30 0d 09 68 69 |deItemNu|m 10..hi|
|00002e70| 6c 69 74 65 4d 65 6e 75 | 49 74 65 6d 20 4d 69 73 |liteMenu|Item Mis|
|00002e80| 63 20 24 6d 6f 64 65 49 | 74 65 6d 4e 75 6d 20 6f |c $modeI|temNum o|
|00002e90| 66 66 0d 7d 0d 0d 0d 23 | 20 4f 6e 6c 79 20 66 6f |ff.}...#| Only fo|
|00002ea0| 72 20 74 68 65 20 73 68 | 65 6c 6c 2e 0d 70 72 6f |r the sh|ell..pro|
|00002eb0| 63 20 73 65 74 53 68 65 | 6c 6c 4d 6f 64 65 20 7b |c setShe|llMode {|
|00002ec0| 7d 20 7b 0d 09 73 65 74 | 54 63 6c 4d 6f 64 65 0d |} {..set|TclMode.|
|00002ed0| 09 67 6c 6f 62 61 6c 20 | 6d 6f 64 65 49 74 65 6d |.global |modeItem|
|00002ee0| 4e 75 6d 0d 09 68 69 6c | 69 74 65 4d 65 6e 75 49 |Num..hil|iteMenuI|
|00002ef0| 74 65 6d 20 4d 69 73 63 | 20 24 6d 6f 64 65 49 74 |tem Misc| $modeIt|
|00002f00| 65 6d 4e 75 6d 20 6f 6e | 0d 09 73 65 74 20 6d 6f |emNum on|..set mo|
|00002f10| 64 65 49 74 65 6d 4e 75 | 6d 20 39 0d 09 68 69 6c |deItemNu|m 9..hil|
|00002f20| 69 74 65 4d 65 6e 75 49 | 74 65 6d 20 4d 69 73 63 |iteMenuI|tem Misc|
|00002f30| 20 24 6d 6f 64 65 49 74 | 65 6d 4e 75 6d 20 6f 66 | $modeIt|emNum of|
|00002f40| 66 0d 09 63 68 61 6e 67 | 65 4d 6f 64 65 20 43 73 |f..chang|eMode Cs|
|00002f50| 68 0d 7d 0d 0d 70 72 6f | 63 20 73 77 69 74 63 68 |h.}..pro|c switch|
|00002f60| 54 6f 4f 7a 74 65 78 20 | 7b 7d 20 7b 0d 09 73 77 |ToOztex |{} {..sw|
|00002f70| 69 74 63 68 54 6f 20 7b | 4f 7a 54 65 58 7d 0d 7d |itchTo {|OzTeX}.}|
|00002f80| 0d 0d 23 20 4c 61 54 65 | 58 20 6d 6f 64 65 0d 70 |..# LaTe|X mode.p|
|00002f90| 72 6f 63 20 73 65 74 54 | 65 78 4d 6f 64 65 20 7b |roc setT|exMode {|
|00002fa0| 7d 20 7b 0d 0d 09 67 6c | 6f 62 61 6c 20 6d 6f 64 |} {...gl|obal mod|
|00002fb0| 65 49 74 65 6d 4e 75 6d | 0d 09 67 6c 6f 62 61 6c |eItemNum|..global|
|00002fc0| 20 75 73 69 6e 67 4c 61 | 74 65 78 0d 0d 09 63 68 | usingLa|tex...ch|
|00002fd0| 61 6e 67 65 4d 6f 64 65 | 20 22 54 65 78 22 0d 09 |angeMode| "Tex"..|
|00002fe0| 73 65 74 56 61 72 20 65 | 6c 65 63 4c 42 72 61 63 |setVar e|lecLBrac|
|00002ff0| 65 20 30 0d 09 73 65 74 | 56 61 72 20 65 6c 65 63 |e 0..set|Var elec|
|00003000| 52 42 72 61 63 65 20 30 | 0d 09 73 65 74 56 61 72 |RBrace 0|..setVar|
|00003010| 20 65 6c 65 63 74 72 69 | 63 53 65 6d 69 20 30 0d | electri|cSemi 0.|
|00003020| 09 73 65 74 56 61 72 20 | 77 6f 72 64 57 72 61 70 |.setVar |wordWrap|
|00003030| 20 31 0d 09 73 65 74 56 | 61 72 20 66 69 6c 6c 43 | 1..setV|ar fillC|
|00003040| 6f 6c 75 6d 6e 20 37 35 | 0d 09 73 65 74 20 70 72 |olumn 75|..set pr|
|00003050| 65 66 69 78 53 74 72 69 | 6e 67 20 22 25 20 22 0d |efixStri|ng "% ".|
|00003060| 09 62 69 6e 64 20 27 30 | 78 37 39 27 20 6e 65 78 |.bind '0|x79' nex|
|00003070| 74 53 65 63 74 69 6f 6e | 0d 09 62 69 6e 64 20 27 |tSection|..bind '|
|00003080| 30 78 37 34 27 20 70 72 | 65 76 53 65 63 74 69 6f |0x74' pr|evSectio|
|00003090| 6e 0d 09 73 65 74 56 61 | 72 20 66 75 6e 63 54 69 |n..setVa|r funcTi|
|000030a0| 74 6c 65 20 22 53 65 63 | 74 22 0d 09 73 65 74 56 |tle "Sec|t"..setV|
|000030b0| 61 72 20 73 6f 72 74 65 | 64 49 73 44 65 66 61 75 |ar sorte|dIsDefau|
|000030c0| 6c 74 20 30 0d 09 73 65 | 74 56 61 72 20 66 75 6e |lt 0..se|tVar fun|
|000030d0| 63 45 78 70 72 20 7b 5e | 5c 5c 28 73 75 62 29 2a |cExpr {^|\\(sub)*|
|000030e0| 73 65 63 74 69 6f 6e 7b | 28 2e 2a 29 7d 24 7d 0d |section{|(.*)}$}.|
|000030f0| 09 73 65 74 56 61 72 20 | 66 75 6e 63 50 61 72 20 |.setVar |funcPar |
|00003100| 32 0d 09 68 69 6c 69 74 | 65 4d 65 6e 75 49 74 65 |2..hilit|eMenuIte|
|00003110| 6d 20 4d 69 73 63 20 24 | 6d 6f 64 65 49 74 65 6d |m Misc $|modeItem|
|00003120| 4e 75 6d 20 6f 6e 0d 09 | 73 65 74 20 6d 6f 64 65 |Num on..|set mode|
|00003130| 49 74 65 6d 4e 75 6d 20 | 31 31 0d 09 68 69 6c 69 |ItemNum |11..hili|
|00003140| 74 65 4d 65 6e 75 49 74 | 65 6d 20 4d 69 73 63 20 |teMenuIt|em Misc |
|00003150| 24 6d 6f 64 65 49 74 65 | 6d 4e 75 6d 20 6f 66 66 |$modeIte|mNum off|
|00003160| 0d 09 69 66 20 7b 24 75 | 73 69 6e 67 4c 61 74 65 |..if {$u|singLate|
|00003170| 78 7d 20 7b 0d 09 09 73 | 65 74 56 61 72 20 6f 70 |x} {...s|etVar op|
|00003180| 74 69 6f 6e 49 73 4d 65 | 74 61 20 30 0d 09 09 62 |tionIsMe|ta 0...b|
|00003190| 69 6e 64 54 65 78 4b 65 | 79 73 0d 09 09 69 6e 73 |indTexKe|ys...ins|
|000031a0| 65 72 74 4d 65 6e 75 20 | 22 4c 61 54 65 58 22 0d |ertMenu |"LaTeX".|
|000031b0| 09 7d 0d 7d 0d 0d 0d 0d | 23 20 4f 72 64 69 6e 61 |.}.}....|# Ordina|
|000031c0| 72 79 2c 20 64 65 66 61 | 75 6c 74 20 6d 6f 64 65 |ry, defa|ult mode|
|000031d0| 0d 70 72 6f 63 20 73 65 | 74 54 65 78 74 4d 6f 64 |.proc se|tTextMod|
|000031e0| 65 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 6d |e {} {..|global m|
|000031f0| 6f 64 65 49 74 65 6d 4e | 75 6d 0d 0d 09 63 68 61 |odeItemN|um...cha|
|00003200| 6e 67 65 4d 6f 64 65 20 | 22 54 65 78 74 22 0d 09 |ngeMode |"Text"..|
|00003210| 73 65 74 56 61 72 20 65 | 6c 65 63 4c 42 72 61 63 |setVar e|lecLBrac|
|00003220| 65 20 30 0d 09 73 65 74 | 56 61 72 20 65 6c 65 63 |e 0..set|Var elec|
|00003230| 52 42 72 61 63 65 20 30 | 0d 09 73 65 74 56 61 72 |RBrace 0|..setVar|
|00003240| 20 65 6c 65 63 74 72 69 | 63 53 65 6d 69 20 30 0d | electri|cSemi 0.|
|00003250| 09 73 65 74 56 61 72 20 | 77 6f 72 64 57 72 61 70 |.setVar |wordWrap|
|00003260| 20 31 0d 09 73 65 74 56 | 61 72 20 66 69 6c 6c 43 | 1..setV|ar fillC|
|00003270| 6f 6c 75 6d 6e 20 37 35 | 0d 09 73 65 74 20 70 72 |olumn 75|..set pr|
|00003280| 65 66 69 78 53 74 72 69 | 6e 67 20 22 3e 20 22 0d |efixStri|ng "> ".|
|00003290| 09 73 65 74 20 73 75 66 | 66 69 78 53 74 72 69 6e |.set suf|fixStrin|
|000032a0| 67 20 22 20 3c 2d 2d 22 | 0d 09 68 69 6c 69 74 65 |g " <--"|..hilite|
|000032b0| 4d 65 6e 75 49 74 65 6d | 20 4d 69 73 63 20 24 6d |MenuItem| Misc $m|
|000032c0| 6f 64 65 49 74 65 6d 4e | 75 6d 20 6f 6e 0d 09 73 |odeItemN|um on..s|
|000032d0| 65 74 20 6d 6f 64 65 49 | 74 65 6d 4e 75 6d 20 31 |et modeI|temNum 1|
|000032e0| 32 0d 09 68 69 6c 69 74 | 65 4d 65 6e 75 49 74 65 |2..hilit|eMenuIte|
|000032f0| 6d 20 4d 69 73 63 20 24 | 6d 6f 64 65 49 74 65 6d |m Misc $|modeItem|
|00003300| 4e 75 6d 20 6f 66 66 0d | 7d 0d 0d 70 72 6f 63 20 |Num off.|}..proc |
|00003310| 63 68 61 6e 67 65 4d 6f | 64 65 20 7b 6e 65 77 4d |changeMo|de {newM|
|00003320| 6f 64 65 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 6c |ode} {..|global l|
|00003330| 61 73 74 4d 6f 64 65 0d | 09 69 66 20 7b 24 6c 61 |astMode.|.if {$la|
|00003340| 73 74 4d 6f 64 65 20 3d | 3d 20 24 6e 65 77 4d 6f |stMode =|= $newMo|
|00003350| 64 65 7d 20 7b 0d 09 09 | 64 69 73 70 6c 61 79 4d |de} {...|displayM|
|00003360| 6f 64 65 20 24 6e 65 77 | 4d 6f 64 65 0d 09 09 72 |ode $new|Mode...r|
|00003370| 65 74 75 72 6e 0d 09 7d | 0d 09 0d 09 69 66 20 7b |eturn..}|....if {|
|00003380| 24 6c 61 73 74 4d 6f 64 | 65 20 3d 3d 20 22 54 65 |$lastMod|e == "Te|
|00003390| 78 22 7d 20 74 68 65 6e | 20 7b 0d 09 09 67 6c 6f |x"} then| {...glo|
|000033a0| 62 61 6c 20 75 73 69 6e | 67 4c 61 74 65 78 0d 09 |bal usin|gLatex..|
|000033b0| 09 69 66 20 7b 24 75 73 | 69 6e 67 4c 61 74 65 78 |.if {$us|ingLatex|
|000033c0| 7d 20 74 68 65 6e 20 7b | 0d 09 09 09 72 65 6d 6f |} then {|....remo|
|000033d0| 76 65 4d 65 6e 75 20 22 | 4c 61 54 65 58 22 0d 09 |veMenu "|LaTeX"..|
|000033e0| 09 09 73 65 74 56 61 72 | 20 6f 70 74 69 6f 6e 49 |..setVar| optionI|
|000033f0| 73 4d 65 74 61 20 31 0d | 09 09 09 75 6e 62 69 6e |sMeta 1.|...unbin|
|00003400| 64 54 65 78 4b 65 79 73 | 0d 09 09 7d 0d 09 7d 20 |dTexKeys|...}..} |
|00003410| 65 6c 73 65 20 7b 0d 09 | 09 69 66 20 7b 24 6c 61 |else {..|.if {$la|
|00003420| 73 74 4d 6f 64 65 20 3d | 3d 20 22 43 22 7d 20 7b |stMode =|= "C"} {|
|00003430| 0d 09 09 09 72 65 6d 6f | 76 65 4d 65 6e 75 20 22 |....remo|veMenu "|
|00003440| 43 22 0d 09 09 7d 0d 09 | 7d 0d 0d 09 67 6c 6f 62 |C"...}..|}...glob|
|00003450| 61 6c 20 6d 6f 64 65 0d | 09 73 65 74 20 6d 6f 64 |al mode.|.set mod|
|00003460| 65 20 24 6e 65 77 4d 6f | 64 65 0d 09 64 69 73 70 |e $newMo|de..disp|
|00003470| 6c 61 79 4d 6f 64 65 20 | 24 6e 65 77 4d 6f 64 65 |layMode |$newMode|
|00003480| 0d 09 73 65 74 20 6c 61 | 73 74 4d 6f 64 65 20 24 |..set la|stMode $|
|00003490| 6e 65 77 4d 6f 64 65 0d | 7d 0d 09 0d 0d 70 72 6f |newMode.|}....pro|
|000034a0| 63 20 75 6e 73 65 74 54 | 65 78 4d 6f 64 65 20 7b |c unsetT|exMode {|
|000034b0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 74 65 78 57 |} {..glo|bal texW|
|000034c0| 61 73 4c 61 73 74 0d 09 | 67 6c 6f 62 61 6c 20 75 |asLast..|global u|
|000034d0| 73 69 6e 67 4c 61 74 65 | 78 0d 09 69 66 20 7b 24 |singLate|x..if {$|
|000034e0| 75 73 69 6e 67 4c 61 74 | 65 78 7d 20 7b 0d 09 09 |usingLat|ex} {...|
|000034f0| 72 65 6d 6f 76 65 4d 65 | 6e 75 20 22 4c 61 54 65 |removeMe|nu "LaTe|
|00003500| 58 22 0d 09 09 73 65 74 | 56 61 72 20 6f 70 74 69 |X"...set|Var opti|
|00003510| 6f 6e 49 73 4d 65 74 61 | 20 31 0d 09 09 75 6e 62 |onIsMeta| 1...unb|
|00003520| 69 6e 64 54 65 78 4b 65 | 79 73 0d 09 7d 0d 09 73 |indTexKe|ys..}..s|
|00003530| 65 74 20 74 65 78 57 61 | 73 4c 61 73 74 20 30 0d |et texWa|sLast 0.|
|00003540| 7d 0d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}...#===|========|
|00003550| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003560| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003570| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003580| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003590| 3d 3d 0d 23 20 27 53 74 | 72 69 6e 67 73 27 20 63 |==.# 'St|rings' c|
|000035a0| 6f 6d 6d 61 6e 64 73 0d | 23 3d 3d 3d 3d 3d 3d 3d |ommands.|#=======|
|000035b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035f0| 3d 3d 3d 3d 3d 3d 0d 73 | 65 74 20 70 72 65 66 69 |======.s|et prefi|
|00003600| 78 53 74 72 69 6e 67 20 | 22 3e 5c 20 22 0d 73 65 |xString |">\ ".se|
|00003610| 74 20 73 75 66 66 69 78 | 53 74 72 69 6e 67 20 22 |t suffix|String "|
|00003620| 5c 20 3c 2d 2d 22 0d 0d | 70 72 6f 63 20 69 6e 73 |\ <--"..|proc ins|
|00003630| 65 72 74 53 75 66 66 69 | 78 20 7b 7d 20 7b 64 6f |ertSuffi|x {} {do|
|00003640| 53 75 66 66 69 78 20 69 | 6e 73 65 72 74 7d 0d 70 |Suffix i|nsert}.p|
|00003650| 72 6f 63 20 72 65 6d 6f | 76 65 53 75 66 66 69 78 |roc remo|veSuffix|
|00003660| 20 7b 7d 20 7b 64 6f 53 | 75 66 66 69 78 20 72 65 | {} {doS|uffix re|
|00003670| 6d 6f 76 65 7d 0d 70 72 | 6f 63 20 64 6f 53 75 66 |move}.pr|oc doSuf|
|00003680| 66 69 78 20 7b 77 68 69 | 63 68 7d 20 7b 0d 09 67 |fix {whi|ch} {..g|
|00003690| 6c 6f 62 61 6c 20 73 75 | 66 66 69 78 53 74 72 69 |lobal su|ffixStri|
|000036a0| 6e 67 0d 09 73 65 74 20 | 73 74 72 20 24 7b 73 75 |ng..set |str ${su|
|000036b0| 66 66 69 78 53 74 72 69 | 6e 67 7d 5c 72 0d 09 73 |ffixStri|ng}\r..s|
|000036c0| 65 74 20 73 74 61 72 74 | 20 5b 67 65 74 50 6f 73 |et start| [getPos|
|000036d0| 5d 0d 09 73 65 74 20 65 | 6e 64 20 5b 73 65 6c 45 |]..set e|nd [selE|
|000036e0| 6e 64 5d 0d 09 73 65 74 | 20 73 74 61 72 74 20 5b |nd]..set| start [|
|000036f0| 6c 69 6e 65 53 74 61 72 | 74 20 24 73 74 61 72 74 |lineStar|t $start|
|00003700| 5d 0d 09 73 65 74 20 65 | 6e 64 20 5b 6e 65 78 74 |]..set e|nd [next|
|00003710| 4c 69 6e 65 53 74 61 72 | 74 20 5b 65 78 70 72 20 |LineStar|t [expr |
|00003720| 24 65 6e 64 2d 31 5d 5d | 0d 09 73 65 74 20 74 65 |$end-1]]|..set te|
|00003730| 78 74 20 5b 67 65 74 54 | 65 78 74 20 24 73 74 61 |xt [getT|ext $sta|
|00003740| 72 74 20 24 65 6e 64 5d | 0d 09 64 65 6c 65 74 65 |rt $end]|..delete|
|00003750| 54 65 78 74 20 24 73 74 | 61 72 74 20 24 65 6e 64 |Text $st|art $end|
|00003760| 0d 09 69 66 20 7b 24 77 | 68 69 63 68 20 3d 3d 20 |..if {$w|hich == |
|00003770| 22 69 6e 73 65 72 74 22 | 7d 20 74 68 65 6e 20 7b |"insert"|} then {|
|00003780| 0d 09 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 5c |...regsu|b -all \|
|00003790| 72 20 24 74 65 78 74 20 | 24 73 74 72 20 74 65 78 |r $text |$str tex|
|000037a0| 74 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 72 65 |t..} els|e {...re|
|000037b0| 67 73 75 62 20 2d 61 6c | 6c 20 24 73 74 72 20 24 |gsub -al|l $str $|
|000037c0| 74 65 78 74 20 5c 72 20 | 74 65 78 74 0d 09 7d 0d |text \r |text..}.|
|000037d0| 09 69 6e 73 65 72 74 54 | 65 78 74 20 24 74 65 78 |.insertT|ext $tex|
|000037e0| 74 0d 7d 0d 0d 0d 70 72 | 6f 63 20 69 6e 73 65 72 |t.}...pr|oc inser|
|000037f0| 74 50 72 65 66 69 78 20 | 7b 7d 20 7b 64 6f 50 72 |tPrefix |{} {doPr|
|00003800| 65 66 69 78 20 69 6e 73 | 65 72 74 7d 0d 70 72 6f |efix ins|ert}.pro|
|00003810| 63 20 72 65 6d 6f 76 65 | 50 72 65 66 69 78 20 7b |c remove|Prefix {|
|00003820| 7d 20 7b 64 6f 50 72 65 | 66 69 78 20 72 65 6d 6f |} {doPre|fix remo|
|00003830| 76 65 7d 0d 70 72 6f 63 | 20 64 6f 50 72 65 66 69 |ve}.proc| doPrefi|
|00003840| 78 20 7b 77 68 69 63 68 | 7d 20 7b 0d 09 67 6c 6f |x {which|} {..glo|
|00003850| 62 61 6c 20 70 72 65 66 | 69 78 53 74 72 69 6e 67 |bal pref|ixString|
|00003860| 0d 09 73 65 74 20 73 74 | 72 20 5c 72 24 70 72 65 |..set st|r \r$pre|
|00003870| 66 69 78 53 74 72 69 6e | 67 0d 09 73 65 74 20 73 |fixStrin|g..set s|
|00003880| 74 61 72 74 20 5b 67 65 | 74 50 6f 73 5d 0d 09 73 |tart [ge|tPos]..s|
|00003890| 65 74 20 65 6e 64 20 5b | 65 78 70 72 20 5b 73 65 |et end [|expr [se|
|000038a0| 6c 45 6e 64 5d 2d 31 5d | 0d 09 69 66 20 7b 24 65 |lEnd]-1]|..if {$e|
|000038b0| 6e 64 3c 24 73 74 61 72 | 74 7d 20 7b 73 65 74 20 |nd<$star|t} {set |
|000038c0| 65 6e 64 20 24 73 74 61 | 72 74 7d 0d 09 73 65 74 |end $sta|rt}..set|
|000038d0| 20 73 74 61 72 74 20 5b | 6c 69 6e 65 53 74 61 72 | start [|lineStar|
|000038e0| 74 20 24 73 74 61 72 74 | 5d 0d 09 73 65 74 20 74 |t $start|]..set t|
|000038f0| 65 78 74 20 5b 67 65 74 | 54 65 78 74 20 24 73 74 |ext [get|Text $st|
|00003900| 61 72 74 20 24 65 6e 64 | 5d 0d 09 64 65 6c 65 74 |art $end|]..delet|
|00003910| 65 54 65 78 74 20 24 73 | 74 61 72 74 20 24 65 6e |eText $s|tart $en|
|00003920| 64 0d 09 69 66 20 7b 24 | 77 68 69 63 68 20 3d 3d |d..if {$|which ==|
|00003930| 20 22 69 6e 73 65 72 74 | 22 7d 20 74 68 65 6e 20 | "insert|"} then |
|00003940| 7b 0d 09 09 72 65 67 73 | 75 62 20 2d 61 6c 6c 20 |{...regs|ub -all |
|00003950| 5c 72 20 24 74 65 78 74 | 20 24 73 74 72 20 74 65 |\r $text| $str te|
|00003960| 78 74 0d 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |xt...ins|ertText |
|00003970| 24 70 72 65 66 69 78 53 | 74 72 69 6e 67 20 24 74 |$prefixS|tring $t|
|00003980| 65 78 74 20 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |ext ..} |else {..|
|00003990| 09 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 24 73 74 |.regsub |-all $st|
|000039a0| 72 20 24 74 65 78 74 20 | 5c 72 20 74 65 78 74 0d |r $text |\r text.|
|000039b0| 09 09 72 65 67 73 75 62 | 20 5e 24 70 72 65 66 69 |..regsub| ^$prefi|
|000039c0| 78 53 74 72 69 6e 67 20 | 24 74 65 78 74 20 22 22 |xString |$text ""|
|000039d0| 20 74 65 78 74 0d 09 09 | 69 6e 73 65 72 74 54 65 | text...|insertTe|
|000039e0| 78 74 20 24 74 65 78 74 | 0d 09 7d 0d 7d 0d 0d 0d |xt $text|..}.}...|
|000039f0| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00003a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00003a40| 09 4e 61 6d 65 64 20 43 | 6c 69 70 62 6f 61 72 64 |.Named C|lipboard|
|00003a50| 73 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |s.#=====|========|
|00003a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003aa0| 0d 0d 70 72 6f 63 20 63 | 6f 70 79 4e 61 6d 65 64 |..proc c|opyNamed|
|00003ab0| 43 6c 69 70 62 6f 61 72 | 64 20 7b 7d 20 7b 0d 09 |Clipboar|d {} {..|
|00003ac0| 67 6c 6f 62 61 6c 20 63 | 6c 69 70 42 6f 61 72 64 |global c|lipBoard|
|00003ad0| 73 0d 09 67 6c 6f 62 61 | 6c 20 70 61 73 74 65 49 |s..globa|l pasteI|
|00003ae0| 74 65 6d 4e 75 6d 0d 09 | 68 69 6c 69 74 65 4d 65 |temNum..|hiliteMe|
|00003af0| 6e 75 49 74 65 6d 20 4d | 69 73 63 20 24 70 61 73 |nuItem M|isc $pas|
|00003b00| 74 65 49 74 65 6d 4e 75 | 6d 20 6f 6e 0d 09 73 65 |teItemNu|m on..se|
|00003b10| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00003b20| 5b 67 65 74 50 6f 73 5d | 20 5b 73 65 6c 45 6e 64 |[getPos]| [selEnd|
|00003b30| 5d 5d 0d 09 73 65 74 20 | 6e 61 6d 65 20 5b 70 72 |]]..set |name [pr|
|00003b40| 6f 6d 70 74 20 7b 43 6c | 69 70 20 6e 61 6d 65 3f |ompt {Cl|ip name?|
|00003b50| 7d 20 5b 6c 69 6e 64 65 | 78 20 24 74 65 78 74 20 |} [linde|x $text |
|00003b60| 30 5d 5d 0d 09 69 66 20 | 7b 21 5b 73 74 72 69 6e |0]]..if |{![strin|
|00003b70| 67 20 6c 65 6e 67 74 68 | 20 24 6e 61 6d 65 5d 7d |g length| $name]}|
|00003b80| 20 74 68 65 6e 20 7b 0d | 09 09 62 65 65 70 0d 09 | then {.|..beep..|
|00003b90| 7d 20 65 6c 73 65 20 7b | 0d 09 09 73 65 74 20 63 |} else {|...set c|
|00003ba0| 6c 69 70 42 6f 61 72 64 | 73 28 24 6e 61 6d 65 29 |lipBoard|s($name)|
|00003bb0| 20 24 74 65 78 74 0d 09 | 7d 0d 7d 0d 0d 70 72 6f | $text..|}.}..pro|
|00003bc0| 63 20 63 75 74 4e 61 6d | 65 64 43 6c 69 70 62 6f |c cutNam|edClipbo|
|00003bd0| 61 72 64 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ard {} {|..global|
|00003be0| 20 63 6c 69 70 42 6f 61 | 72 64 73 0d 09 67 6c 6f | clipBoa|rds..glo|
|00003bf0| 62 61 6c 20 70 61 73 74 | 65 49 74 65 6d 4e 75 6d |bal past|eItemNum|
|00003c00| 0d 09 68 69 6c 69 74 65 | 4d 65 6e 75 49 74 65 6d |..hilite|MenuItem|
|00003c10| 20 4d 69 73 63 20 24 70 | 61 73 74 65 49 74 65 6d | Misc $p|asteItem|
|00003c20| 4e 75 6d 20 6f 6e 0d 09 | 73 65 74 20 74 65 78 74 |Num on..|set text|
|00003c30| 20 5b 67 65 74 54 65 78 | 74 20 5b 67 65 74 50 6f | [getTex|t [getPo|
|00003c40| 73 5d 20 5b 73 65 6c 45 | 6e 64 5d 5d 0d 09 64 65 |s] [selE|nd]]..de|
|00003c50| 6c 65 74 65 54 65 78 74 | 20 5b 67 65 74 54 65 78 |leteText| [getTex|
|00003c60| 74 20 5b 67 65 74 50 6f | 73 5d 20 5b 73 65 6c 45 |t [getPo|s] [selE|
|00003c70| 6e 64 5d 5d 0d 09 73 65 | 74 20 6e 61 6d 65 20 5b |nd]]..se|t name [|
|00003c80| 70 72 6f 6d 70 74 20 7b | 43 6c 69 70 20 6e 61 6d |prompt {|Clip nam|
|00003c90| 65 3f 7d 20 5b 6c 69 6e | 64 65 78 20 24 74 65 78 |e?} [lin|dex $tex|
|00003ca0| 74 20 30 5d 5d 0d 09 69 | 66 20 7b 21 5b 73 74 72 |t 0]]..i|f {![str|
|00003cb0| 69 6e 67 20 6c 65 6e 67 | 74 68 20 24 6e 61 6d 65 |ing leng|th $name|
|00003cc0| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 62 65 65 70 |]} then |{...beep|
|00003cd0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 73 65 74 |..} else| {...set|
|00003ce0| 20 63 6c 69 70 42 6f 61 | 72 64 73 28 24 6e 61 6d | clipBoa|rds($nam|
|00003cf0| 65 29 20 24 74 65 78 74 | 0d 09 7d 0d 7d 0d 0d 70 |e) $text|..}.}..p|
|00003d00| 72 6f 63 20 70 61 73 74 | 65 4e 61 6d 65 64 43 6c |roc past|eNamedCl|
|00003d10| 69 70 62 6f 61 72 64 20 | 7b 7d 20 7b 0d 09 67 6c |ipboard |{} {..gl|
|00003d20| 6f 62 61 6c 20 63 6c 69 | 70 42 6f 61 72 64 73 0d |obal cli|pBoards.|
|00003d30| 09 73 65 74 20 6e 61 6d | 65 20 5b 65 76 61 6c 20 |.set nam|e [eval |
|00003d40| 5b 63 6f 6e 63 61 74 20 | 7b 70 72 6f 6d 70 74 20 |[concat |{prompt |
|00003d50| 7b 43 6c 69 70 20 6e 61 | 6d 65 3f 7d 20 22 22 20 |{Clip na|me?} "" |
|00003d60| 43 6c 69 70 73 7d 20 5b | 61 72 72 61 79 20 6e 61 |Clips} [|array na|
|00003d70| 6d 65 73 20 63 6c 69 70 | 42 6f 61 72 64 73 5d 5d |mes clip|Boards]]|
|00003d80| 5d 0d 09 69 66 20 7b 5b | 63 61 74 63 68 20 7b 73 |]..if {[|catch {s|
|00003d90| 65 74 20 74 65 78 74 20 | 24 63 6c 69 70 42 6f 61 |et text |$clipBoa|
|00003da0| 72 64 73 28 24 6e 61 6d | 65 29 7d 5d 20 3d 3d 20 |rds($nam|e)}] == |
|00003db0| 30 7d 09 7b 0d 09 09 69 | 6e 73 65 72 74 54 65 78 |0}.{...i|nsertTex|
|00003dc0| 74 20 24 74 65 78 74 0d | 09 7d 20 65 6c 73 65 20 |t $text.|.} else |
|00003dd0| 7b 0d 09 09 61 6c 65 72 | 74 6e 6f 74 65 20 22 55 |{...aler|tnote "U|
|00003de0| 6e 61 62 6c 65 20 74 6f | 20 66 69 6e 64 20 74 68 |nable to| find th|
|00003df0| 61 74 20 63 6c 69 70 62 | 6f 61 72 64 22 0d 09 7d |at clipb|oard"..}|
|00003e00| 0d 7d 0d 0d 0d 23 20 4c | 6f 6f 6b 73 20 66 6f 72 |.}...# L|ooks for|
|00003e10| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6f 66 20 63 | definit|ion of c|
|00003e20| 6c 69 70 62 6f 61 72 64 | 20 6e 61 6d 65 64 20 27 |lipboard| named '|
|00003e30| 6e 61 6d 65 27 2e 0d 70 | 72 6f 63 20 6c 6f 6f 6b |name'..p|roc look|
|00003e40| 46 6f 72 43 6c 69 70 20 | 7b 6e 61 6d 65 7d 20 7b |ForClip |{name} {|
|00003e50| 0d 09 67 6c 6f 62 61 6c | 20 63 6c 69 70 42 6f 61 |..global| clipBoa|
|00003e60| 72 64 73 0d 09 73 65 74 | 20 6c 65 6e 20 3d 20 32 |rds..set| len = 2|
|00003e70| 0d 09 66 6f 72 20 7b 73 | 65 74 20 69 20 30 7d 20 |..for {s|et i 0} |
|00003e80| 7b 24 69 20 3c 20 24 6c | 65 6e 7d 20 7b 69 6e 63 |{$i < $l|en} {inc|
|00003e90| 72 20 69 7d 20 7b 0d 09 | 09 69 66 20 7b 5b 6c 69 |r i} {..|.if {[li|
|00003ea0| 6e 64 65 78 20 24 63 6c | 69 70 20 30 5d 20 3d 3d |ndex $cl|ip 0] ==|
|00003eb0| 20 24 6e 61 6d 65 7d 20 | 7b 0d 09 09 09 72 65 74 | $name} |{....ret|
|00003ec0| 75 72 6e 20 5b 6c 69 6e | 64 65 78 20 24 63 6c 69 |urn [lin|dex $cli|
|00003ed0| 70 20 32 5d 0d 09 09 7d | 0d 09 7d 0d 09 72 65 74 |p 2]...}|..}..ret|
|00003ee0| 75 72 6e 20 22 22 0d 7d | 0d 0d 0d 23 3d 3d 3d 3d |urn "".}|...#====|
|00003ef0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 09 53 68 65 6c |========|=.#.Shel|
|00003f40| 6c 20 41 6c 69 61 73 65 | 73 0d 23 3d 3d 3d 3d 3d |l Aliase|s.#=====|
|00003f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f90| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 70 72 6f 63 20 6c 20 |========|.proc l |
|00003fa0| 7b 61 72 67 73 7d 20 7b | 0d 09 65 76 61 6c 20 5b |{args} {|..eval [|
|00003fb0| 63 6f 6e 63 61 74 20 22 | 6c 73 20 2d 46 22 20 24 |concat "|ls -F" $|
|00003fc0| 61 72 67 73 5d 7d 0d 0d | 70 72 6f 63 20 6c 6c 20 |args]}..|proc ll |
|00003fd0| 7b 61 72 67 73 7d 20 7b | 0d 09 65 76 61 6c 20 5b |{args} {|..eval [|
|00003fe0| 63 6f 6e 63 61 74 20 22 | 6c 73 20 2d 6c 22 20 24 |concat "|ls -l" $|
|00003ff0| 61 72 67 73 5d 7d 0d 0d | 0d 70 72 6f 63 20 67 72 |args]}..|.proc gr|
|00004000| 65 70 20 7b 70 61 74 20 | 61 72 67 73 7d 20 7b 0d |ep {pat |args} {.|
|00004010| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 72 22 |.insertT|ext "\r"|
|00004020| 0d 09 73 65 74 20 70 61 | 74 20 2a 24 70 61 74 2a |..set pa|t *$pat*|
|00004030| 0d 09 73 65 74 20 61 72 | 67 73 20 5b 67 6c 6f 62 |..set ar|gs [glob|
|00004040| 20 2d 6e 6f 63 6f 6d 70 | 6c 61 69 6e 20 24 61 72 | -nocomp|lain $ar|
|00004050| 67 73 5d 0d 09 66 6f 72 | 65 61 63 68 20 66 69 6c |gs]..for|each fil|
|00004060| 65 20 24 61 72 67 73 20 | 7b 0d 09 09 73 65 74 20 |e $args |{...set |
|00004070| 69 64 20 5b 6f 70 65 6e | 20 24 66 69 6c 65 5d 0d |id [open| $file].|
|00004080| 09 09 77 68 69 6c 65 20 | 7b 5b 67 65 74 73 20 24 |..while |{[gets $|
|00004090| 69 64 20 73 74 72 69 6e | 67 5d 20 21 3d 20 22 2d |id strin|g] != "-|
|000040a0| 31 22 7d 20 7b 0d 09 09 | 09 69 66 20 7b 5b 73 74 |1"} {...|.if {[st|
|000040b0| 72 69 6e 67 20 6d 61 74 | 63 68 20 24 70 61 74 20 |ring mat|ch $pat |
|000040c0| 24 73 74 72 69 6e 67 5d | 20 3d 3d 20 31 7d 20 7b |$string]| == 1} {|
|000040d0| 0d 09 09 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |.....ins|ertText |
|000040e0| 24 66 69 6c 65 3a 20 24 | 73 74 72 69 6e 67 20 22 |$file: $|string "|
|000040f0| 5c 72 22 0d 09 09 09 7d | 0d 09 09 7d 0d 09 09 63 |\r"....}|...}...c|
|00004100| 6c 6f 73 65 20 24 69 64 | 0d 09 7d 0d 7d 0d 0d 0d |lose $id|..}.}...|
|00004110| 70 72 6f 63 20 61 6c 70 | 68 61 48 65 6c 70 20 7b |proc alp|haHelp {|
|00004120| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 48 4f 4d 45 |} {..glo|bal HOME|
|00004130| 0d 09 65 64 69 74 20 22 | 24 48 4f 4d 45 3a 48 65 |..edit "|$HOME:He|
|00004140| 6c 70 3a 41 6c 70 68 61 | 20 48 65 6c 70 22 20 72 |lp:Alpha| Help" r|
|00004150| 65 61 64 6f 6e 6c 79 0d | 7d 0d 0d 0d 23 3d 3d 3d |eadonly.|}...#===|
|00004160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 09 27 46 69 |========|==.#.'Fi|
|000041b0| 6c 6c 27 20 72 6f 75 74 | 69 6e 65 73 2e 0d 23 3d |ll' rout|ines..#=|
|000041c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000041f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 70 72 |========|====..pr|
|00004210| 6f 63 20 66 69 6c 6c 50 | 61 72 61 67 72 61 70 68 |oc fillP|aragraph|
|00004220| 20 7b 7d 20 7b 0d 09 73 | 65 74 20 70 6f 73 20 5b | {} {..s|et pos [|
|00004230| 67 65 74 50 6f 73 5d 0d | 09 73 65 74 20 73 74 61 |getPos].|.set sta|
|00004240| 72 74 20 5b 70 61 72 61 | 53 74 61 72 74 20 24 70 |rt [para|Start $p|
|00004250| 6f 73 5d 20 0d 09 73 65 | 74 20 66 69 6e 69 73 68 |os] ..se|t finish|
|00004260| 20 5b 70 61 72 61 46 69 | 6e 69 73 68 20 24 70 6f | [paraFi|nish $po|
|00004270| 73 5d 0d 09 67 6f 74 6f | 20 24 73 74 61 72 74 0d |s]..goto| $start.|
|00004280| 09 73 65 74 20 74 65 78 | 74 20 5b 66 69 6c 6c 54 |.set tex|t [fillT|
|00004290| 65 78 74 20 24 73 74 61 | 72 74 20 24 66 69 6e 69 |ext $sta|rt $fini|
|000042a0| 73 68 5d 0d 09 72 65 70 | 6c 61 63 65 54 65 78 74 |sh]..rep|laceText|
|000042b0| 20 24 73 74 61 72 74 20 | 24 66 69 6e 69 73 68 20 | $start |$finish |
|000042c0| 24 74 65 78 74 20 22 5c | 72 22 0d 7d 0d 0d 70 72 |$text "\|r".}..pr|
|000042d0| 6f 63 20 66 69 6c 6c 52 | 65 67 69 6f 6e 20 7b 7d |oc fillR|egion {}|
|000042e0| 20 7b 0d 09 73 65 74 20 | 73 74 61 72 74 20 5b 67 | {..set |start [g|
|000042f0| 65 74 50 6f 73 5d 0d 09 | 73 65 74 20 66 69 6e 69 |etPos]..|set fini|
|00004300| 73 68 20 5b 73 65 6c 45 | 6e 64 5d 0d 09 67 6f 74 |sh [selE|nd]..got|
|00004310| 6f 20 24 73 74 61 72 74 | 0d 09 73 65 74 20 74 65 |o $start|..set te|
|00004320| 78 74 20 5b 66 69 6c 6c | 54 65 78 74 20 24 73 74 |xt [fill|Text $st|
|00004330| 61 72 74 20 24 66 69 6e | 69 73 68 5d 0d 09 72 65 |art $fin|ish]..re|
|00004340| 70 6c 61 63 65 54 65 78 | 74 20 24 73 74 61 72 74 |placeTex|t $start|
|00004350| 20 24 66 69 6e 69 73 68 | 20 24 74 65 78 74 20 22 | $finish| $text "|
|00004360| 5c 72 22 0d 7d 0d 09 0d | 70 72 6f 63 20 77 72 61 |\r".}...|proc wra|
|00004370| 70 50 61 72 61 67 72 61 | 70 68 20 7b 7d 20 7b 0d |pParagra|ph {} {.|
|00004380| 09 73 65 74 20 70 6f 73 | 20 5b 67 65 74 50 6f 73 |.set pos| [getPos|
|00004390| 5d 0d 09 73 65 74 20 73 | 74 61 72 74 20 5b 70 61 |]..set s|tart [pa|
|000043a0| 72 61 53 74 61 72 74 20 | 24 70 6f 73 5d 20 0d 09 |raStart |$pos] ..|
|000043b0| 73 65 74 20 66 69 6e 69 | 73 68 20 5b 70 61 72 61 |set fini|sh [para|
|000043c0| 46 69 6e 69 73 68 20 24 | 70 6f 73 5d 0d 09 67 6f |Finish $|pos]..go|
|000043d0| 74 6f 20 24 73 74 61 72 | 74 0d 09 77 72 61 70 54 |to $star|t..wrapT|
|000043e0| 65 78 74 20 24 73 74 61 | 72 74 20 24 66 69 6e 69 |ext $sta|rt $fini|
|000043f0| 73 68 0d 7d 0d 0d 70 72 | 6f 63 20 77 72 61 70 52 |sh.}..pr|oc wrapR|
|00004400| 65 67 69 6f 6e 20 7b 7d | 20 7b 0d 09 73 65 74 20 |egion {}| {..set |
|00004410| 73 74 61 72 74 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |start [g|etPos]..|
|00004420| 73 65 74 20 66 69 6e 69 | 73 68 20 5b 73 65 6c 45 |set fini|sh [selE|
|00004430| 6e 64 5d 0d 09 69 66 20 | 7b 24 73 74 61 72 74 20 |nd]..if |{$start |
|00004440| 3d 3d 20 24 66 69 6e 69 | 73 68 7d 20 7b 0d 09 09 |== $fini|sh} {...|
|00004450| 73 65 74 20 66 69 6e 69 | 73 68 20 5b 6d 61 78 50 |set fini|sh [maxP|
|00004460| 6f 73 5d 0d 09 7d 0d 09 | 77 72 61 70 54 65 78 74 |os]..}..|wrapText|
|00004470| 20 24 73 74 61 72 74 20 | 24 66 69 6e 69 73 68 0d | $start |$finish.|
|00004480| 7d 0d 09 0d 70 72 6f 63 | 20 70 61 72 61 53 74 61 |}...proc| paraSta|
|00004490| 72 74 20 7b 70 6f 73 7d | 20 7b 0d 09 77 68 69 6c |rt {pos}| {..whil|
|000044a0| 65 20 7b 24 70 6f 73 20 | 3e 20 30 7d 20 7b 0d 09 |e {$pos |> 0} {..|
|000044b0| 09 73 65 74 20 70 6f 73 | 20 5b 6c 69 6e 65 53 74 |.set pos| [lineSt|
|000044c0| 61 72 74 20 24 70 6f 73 | 5d 0d 09 09 69 66 20 7b |art $pos|]...if {|
|000044d0| 5b 6c 6f 6f 6b 41 74 20 | 5b 65 78 70 72 20 24 70 |[lookAt |[expr $p|
|000044e0| 6f 73 2d 32 5d 5d 20 3d | 3d 20 22 5c 72 22 7d 20 |os-2]] =|= "\r"} |
|000044f0| 7b 72 65 74 75 72 6e 20 | 24 70 6f 73 7d 0d 09 09 |{return |$pos}...|
|00004500| 73 65 74 20 70 6f 73 20 | 5b 65 78 70 72 20 24 70 |set pos |[expr $p|
|00004510| 6f 73 2d 31 5d 0d 09 7d | 0d 09 72 65 74 75 72 6e |os-1]..}|..return|
|00004520| 20 30 0d 7d 0d 0d 0d 70 | 72 6f 63 20 70 61 72 61 | 0.}...p|roc para|
|00004530| 46 69 6e 69 73 68 20 7b | 70 6f 73 7d 20 7b 0d 09 |Finish {|pos} {..|
|00004540| 73 65 74 20 65 6e 64 20 | 5b 6d 61 78 50 6f 73 5d |set end |[maxPos]|
|00004550| 0d 09 77 68 69 6c 65 20 | 7b 24 70 6f 73 20 3c 20 |..while |{$pos < |
|00004560| 24 65 6e 64 7d 20 7b 0d | 09 09 73 65 74 20 70 6f |$end} {.|..set po|
|00004570| 73 20 5b 6e 65 78 74 4c | 69 6e 65 53 74 61 72 74 |s [nextL|ineStart|
|00004580| 20 24 70 6f 73 5d 0d 09 | 09 69 66 20 7b 24 70 6f | $pos]..|.if {$po|
|00004590| 73 20 3d 3d 20 22 2d 31 | 22 7d 20 7b 72 65 74 75 |s == "-1|"} {retu|
|000045a0| 72 6e 20 24 65 6e 64 7d | 0d 09 09 69 66 20 7b 5b |rn $end}|...if {[|
|000045b0| 6c 6f 6f 6b 41 74 20 24 | 70 6f 73 5d 20 3d 3d 20 |lookAt $|pos] == |
|000045c0| 22 5c 72 22 7d 20 7b 72 | 65 74 75 72 6e 20 24 70 |"\r"} {r|eturn $p|
|000045d0| 6f 73 7d 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 24 |os}..}..|return $|
|000045e0| 65 6e 64 0d 7d 0d 0d 0d | 23 20 52 65 6d 6f 76 65 |end.}...|# Remove|
|000045f0| 20 74 65 78 74 20 66 72 | 6f 6d 20 77 69 6e 64 6f | text fr|om windo|
|00004600| 77 2c 20 74 72 61 6e 73 | 66 6f 72 6d 2c 20 61 6e |w, trans|form, an|
|00004610| 64 20 69 6e 73 65 72 74 | 20 62 61 63 6b 20 69 6e |d insert| back in|
|00004620| 74 6f 20 77 69 6e 64 6f | 77 2e 0d 70 72 6f 63 20 |to windo|w..proc |
|00004630| 66 69 6c 6c 54 65 78 74 | 20 7b 66 72 6f 6d 20 74 |fillText| {from t|
|00004640| 6f 7d 20 7b 0d 23 20 47 | 65 74 20 54 68 65 20 74 |o} {.# G|et The t|
|00004650| 65 78 74 0d 09 73 65 74 | 20 74 65 78 74 20 5b 67 |ext..set| text [g|
|00004660| 65 74 54 65 78 74 20 24 | 66 72 6f 6d 20 24 74 6f |etText $|from $to|
|00004670| 5d 0d 09 0d 23 20 52 65 | 6d 6f 76 65 20 64 75 70 |]...# Re|move dup|
|00004680| 6c 69 63 61 74 65 64 20 | 77 68 69 74 65 20 73 70 |licated |white sp|
|00004690| 61 63 65 2c 20 63 61 72 | 72 69 61 67 65 20 72 65 |ace, car|riage re|
|000046a0| 74 75 72 6e 73 2e 0d 09 | 72 65 67 73 75 62 20 2d |turns...|regsub -|
|000046b0| 61 6c 6c 20 22 5c 5b 20 | 5c 74 5c 72 5c 5d 2b 22 |all "\[ |\t\r\]+"|
|000046c0| 20 24 74 65 78 74 20 22 | 20 22 20 74 65 78 74 0d | $text "| " text.|
|000046d0| 0d 23 20 49 6e 73 65 72 | 74 20 6c 65 66 74 20 6d |.# Inser|t left m|
|000046e0| 61 72 67 69 6e 73 20 61 | 6e 64 20 63 61 72 72 69 |argins a|nd carri|
|000046f0| 61 67 65 20 72 65 74 75 | 72 6e 73 2c 20 64 6f 65 |age retu|rns, doe|
|00004700| 73 6e 27 74 20 65 6e 64 | 20 77 69 74 68 20 61 20 |sn't end| with a |
|00004710| 63 61 72 72 69 61 67 65 | 20 72 65 74 75 72 6e 2e |carriage| return.|
|00004720| 0d 09 72 65 74 75 72 6e | 20 5b 62 72 65 61 6b 49 |..return| [breakI|
|00004730| 6e 74 6f 4c 69 6e 65 73 | 20 24 74 65 78 74 5d 0d |ntoLines| $text].|
|00004740| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00004750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004790| 3d 0d 23 09 57 69 6e 64 | 6f 77 20 68 61 6e 64 6c |=.#.Wind|ow handl|
|000047a0| 69 6e 67 20 72 6f 75 74 | 69 6e 65 73 2e 0d 23 3d |ing rout|ines..#=|
|000047b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000047c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000047d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000047e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000047f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 70 72 6f |========|====.pro|
|00004800| 63 20 73 68 72 69 6e 6b | 48 69 67 68 20 7b 7d 20 |c shrink|High {} |
|00004810| 7b 0d 09 73 65 74 20 74 | 65 78 74 20 5b 67 65 74 |{..set t|ext [get|
|00004820| 47 65 6f 6d 65 74 72 79 | 5d 0d 09 73 65 74 20 6c |Geometry|]..set l|
|00004830| 65 66 74 20 5b 6c 69 6e | 64 65 78 20 24 74 65 78 |eft [lin|dex $tex|
|00004840| 74 20 30 5d 0d 09 73 65 | 74 20 74 6f 70 20 5b 6c |t 0]..se|t top [l|
|00004850| 69 6e 64 65 78 20 24 74 | 65 78 74 20 31 5d 0d 09 |index $t|ext 1]..|
|00004860| 73 65 74 20 77 69 64 74 | 68 20 5b 6c 69 6e 64 65 |set widt|h [linde|
|00004870| 78 20 24 74 65 78 74 20 | 32 5d 0d 09 73 69 7a 65 |x $text |2]..size|
|00004880| 57 69 6e 20 24 77 69 64 | 74 68 20 31 35 30 0d 09 |Win $wid|th 150..|
|00004890| 6d 6f 76 65 57 69 6e 20 | 24 6c 65 66 74 20 34 32 |moveWin |$left 42|
|000048a0| 20 0d 7d 0d 0d 70 72 6f | 63 20 73 68 72 69 6e 6b | .}..pro|c shrink|
|000048b0| 4c 6f 77 20 7b 7d 20 7b | 0d 09 73 65 74 20 74 65 |Low {} {|..set te|
|000048c0| 78 74 20 5b 67 65 74 47 | 65 6f 6d 65 74 72 79 5d |xt [getG|eometry]|
|000048d0| 0d 09 73 65 74 20 6c 65 | 66 74 20 5b 6c 69 6e 64 |..set le|ft [lind|
|000048e0| 65 78 20 24 74 65 78 74 | 20 30 5d 0d 09 73 65 74 |ex $text| 0]..set|
|000048f0| 20 74 6f 70 20 5b 6c 69 | 6e 64 65 78 20 24 74 65 | top [li|ndex $te|
|00004900| 78 74 20 31 5d 0d 09 73 | 65 74 20 77 69 64 74 68 |xt 1]..s|et width|
|00004910| 20 5b 6c 69 6e 64 65 78 | 20 24 74 65 78 74 20 32 | [lindex| $text 2|
|00004920| 5d 0d 09 6d 6f 76 65 57 | 69 6e 20 24 6c 65 66 74 |]..moveW|in $left|
|00004930| 20 33 33 30 0d 09 73 69 | 7a 65 57 69 6e 20 24 77 | 330..si|zeWin $w|
|00004940| 69 64 74 68 20 31 34 36 | 0d 7d 0d 0d 0d 70 72 6f |idth 146|.}...pro|
|00004950| 63 20 6e 65 78 74 57 69 | 6e 64 6f 77 20 7b 7d 20 |c nextWi|ndow {} |
|00004960| 7b 0d 09 73 65 74 20 66 | 69 6c 65 73 20 5b 77 69 |{..set f|iles [wi|
|00004970| 6e 4e 61 6d 65 73 5d 0d | 09 69 66 20 7b 5b 6c 6c |nNames].|.if {[ll|
|00004980| 65 6e 67 74 68 20 24 66 | 69 6c 65 73 5d 20 3c 3d |ength $f|iles] <=|
|00004990| 20 31 7d 20 72 65 74 75 | 72 6e 0d 09 73 65 6e 64 | 1} retu|rn..send|
|000049a0| 54 6f 42 61 63 6b 20 5b | 6c 69 6e 64 65 78 20 24 |ToBack [|lindex $|
|000049b0| 66 69 6c 65 73 20 30 5d | 0d 7d 0d 0d 70 72 6f 63 |files 0]|.}..proc|
|000049c0| 20 70 72 65 76 57 69 6e | 64 6f 77 20 7b 7d 20 7b | prevWin|dow {} {|
|000049d0| 0d 09 73 65 74 20 66 69 | 6c 65 73 20 5b 77 69 6e |..set fi|les [win|
|000049e0| 4e 61 6d 65 73 5d 0d 09 | 73 65 74 20 6c 65 6e 20 |Names]..|set len |
|000049f0| 5b 6c 6c 65 6e 67 74 68 | 20 24 66 69 6c 65 73 5d |[llength| $files]|
|00004a00| 0d 09 69 66 20 7b 24 6c | 65 6e 20 3c 3d 20 31 7d |..if {$l|en <= 1}|
|00004a10| 20 72 65 74 75 72 6e 0d | 09 62 72 69 6e 67 54 6f | return.|.bringTo|
|00004a20| 46 72 6f 6e 74 20 5b 6c | 69 6e 64 65 78 20 24 66 |Front [l|index $f|
|00004a30| 69 6c 65 73 20 5b 65 78 | 70 72 20 24 6c 65 6e 2d |iles [ex|pr $len-|
|00004a40| 31 5d 5d 0d 7d 0d 0d 70 | 72 6f 63 20 76 65 72 74 |1]].}..p|roc vert|
|00004a50| 69 63 61 6c 6c 79 20 7b | 7d 20 7b 0d 09 73 65 74 |ically {|} {..set|
|00004a60| 20 6d 61 72 67 69 6e 20 | 32 32 0d 09 73 65 74 20 | margin |22..set |
|00004a70| 6e 61 6d 65 73 20 5b 77 | 69 6e 4e 61 6d 65 73 5d |names [w|inNames]|
|00004a80| 0d 09 73 65 74 20 6e 75 | 6d 57 69 6e 73 20 5b 6c |..set nu|mWins [l|
|00004a90| 6c 65 6e 67 74 68 20 24 | 6e 61 6d 65 73 5d 0d 09 |length $|names]..|
|00004aa0| 69 66 20 28 24 6e 75 6d | 57 69 6e 73 3c 3d 31 29 |if ($num|Wins<=1)|
|00004ab0| 20 72 65 74 75 72 6e 0d | 09 73 65 74 20 68 65 69 | return.|.set hei|
|00004ac0| 67 68 74 20 5b 65 78 70 | 72 20 28 5b 67 65 74 56 |ght [exp|r ([getV|
|00004ad0| 61 72 20 64 65 66 48 65 | 69 67 68 74 5d 2f 24 6e |ar defHe|ight]/$n|
|00004ae0| 75 6d 57 69 6e 73 29 2d | 24 6d 61 72 67 69 6e 5d |umWins)-|$margin]|
|00004af0| 0d 09 73 65 74 20 77 69 | 64 74 68 20 36 34 30 0d |..set wi|dth 640.|
|00004b00| 09 73 65 74 20 76 65 72 | 20 34 30 0d 09 69 66 20 |.set ver| 40..if |
|00004b10| 7b 24 6e 75 6d 57 69 6e | 73 20 3d 3d 20 30 7d 20 |{$numWin|s == 0} |
|00004b20| 7b 72 65 74 75 72 6e 7d | 0d 0d 09 66 6f 72 20 7b |{return}|...for {|
|00004b30| 73 65 74 20 69 20 30 7d | 20 7b 24 69 20 3c 20 24 |set i 0}| {$i < $|
|00004b40| 6e 75 6d 57 69 6e 73 7d | 20 7b 69 6e 63 72 20 69 |numWins}| {incr i|
|00004b50| 7d 20 7b 0d 09 09 6d 6f | 76 65 57 69 6e 20 5b 6c |} {...mo|veWin [l|
|00004b60| 69 6e 64 65 78 20 24 6e | 61 6d 65 73 20 24 69 5d |index $n|ames $i]|
|00004b70| 20 31 30 30 30 20 30 0d | 09 7d 0d 0d 09 66 6f 72 | 1000 0.|.}...for|
|00004b80| 20 7b 73 65 74 20 69 20 | 30 7d 20 7b 24 69 20 3c | {set i |0} {$i <|
|00004b90| 20 24 6e 75 6d 57 69 6e | 73 7d 20 7b 69 6e 63 72 | $numWin|s} {incr|
|00004ba0| 20 69 7d 20 7b 0d 09 09 | 73 69 7a 65 57 69 6e 20 | i} {...|sizeWin |
|00004bb0| 5b 6c 69 6e 64 65 78 20 | 24 6e 61 6d 65 73 20 24 |[lindex |$names $|
|00004bc0| 69 5d 20 24 77 69 64 74 | 68 20 24 68 65 69 67 68 |i] $widt|h $heigh|
|00004bd0| 74 0d 09 09 6d 6f 76 65 | 57 69 6e 20 5b 6c 69 6e |t...move|Win [lin|
|00004be0| 64 65 78 20 24 6e 61 6d | 65 73 20 24 69 5d 20 33 |dex $nam|es $i] 3|
|00004bf0| 20 24 76 65 72 0d 09 09 | 73 65 74 20 76 65 72 20 | $ver...|set ver |
|00004c00| 5b 65 78 70 72 20 24 76 | 65 72 2b 24 6d 61 72 67 |[expr $v|er+$marg|
|00004c10| 69 6e 2b 24 68 65 69 67 | 68 74 5d 0d 09 7d 0d 7d |in+$heig|ht]..}.}|
|00004c20| 0d 0d 70 72 6f 63 20 68 | 6f 72 69 7a 6f 6e 74 61 |..proc h|orizonta|
|00004c30| 6c 6c 79 20 7b 7d 20 7b | 0d 09 73 65 74 20 6e 61 |lly {} {|..set na|
|00004c40| 6d 65 73 20 5b 77 69 6e | 4e 61 6d 65 73 5d 0d 09 |mes [win|Names]..|
|00004c50| 73 65 74 20 6e 75 6d 57 | 69 6e 73 20 5b 6c 6c 65 |set numW|ins [lle|
|00004c60| 6e 67 74 68 20 24 6e 61 | 6d 65 73 5d 0d 09 69 66 |ngth $na|mes]..if|
|00004c70| 20 28 24 6e 75 6d 57 69 | 6e 73 3c 3d 31 29 20 72 | ($numWi|ns<=1) r|
|00004c80| 65 74 75 72 6e 0d 09 73 | 65 74 20 6d 61 72 67 69 |eturn..s|et margi|
|00004c90| 6e 20 34 0d 09 73 65 74 | 20 77 69 64 74 68 20 5b |n 4..set| width [|
|00004ca0| 65 78 70 72 20 28 36 34 | 30 2f 24 6e 75 6d 57 69 |expr (64|0/$numWi|
|00004cb0| 6e 73 29 2d 24 6d 61 72 | 67 69 6e 5d 0d 09 73 65 |ns)-$mar|gin]..se|
|00004cc0| 74 20 68 65 69 67 68 74 | 20 5b 67 65 74 56 61 72 |t height| [getVar|
|00004cd0| 20 64 65 66 48 65 69 67 | 68 74 5d 0d 09 73 65 74 | defHeig|ht]..set|
|00004ce0| 20 68 6f 72 20 30 0d 09 | 69 66 20 7b 24 6e 75 6d | hor 0..|if {$num|
|00004cf0| 57 69 6e 73 20 3d 3d 20 | 30 7d 20 7b 72 65 74 75 |Wins == |0} {retu|
|00004d00| 72 6e 7d 0d 0d 09 66 6f | 72 20 7b 73 65 74 20 69 |rn}...fo|r {set i|
|00004d10| 20 30 7d 20 7b 24 69 20 | 3c 20 24 6e 75 6d 57 69 | 0} {$i |< $numWi|
|00004d20| 6e 73 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |ns} {inc|r i} {..|
|00004d30| 09 6d 6f 76 65 57 69 6e | 20 5b 6c 69 6e 64 65 78 |.moveWin| [lindex|
|00004d40| 20 24 6e 61 6d 65 73 20 | 24 69 5d 20 31 30 30 30 | $names |$i] 1000|
|00004d50| 20 30 0d 09 09 73 69 7a | 65 57 69 6e 20 5b 6c 69 | 0...siz|eWin [li|
|00004d60| 6e 64 65 78 20 24 6e 61 | 6d 65 73 20 24 69 5d 20 |ndex $na|mes $i] |
|00004d70| 24 77 69 64 74 68 20 24 | 68 65 69 67 68 74 0d 09 |$width $|height..|
|00004d80| 7d 0d 0d 09 66 6f 72 20 | 7b 73 65 74 20 69 20 30 |}...for |{set i 0|
|00004d90| 7d 20 7b 24 69 20 3c 20 | 24 6e 75 6d 57 69 6e 73 |} {$i < |$numWins|
|00004da0| 7d 20 7b 69 6e 63 72 20 | 69 7d 20 7b 0d 09 09 6d |} {incr |i} {...m|
|00004db0| 6f 76 65 57 69 6e 20 5b | 6c 69 6e 64 65 78 20 24 |oveWin [|lindex $|
|00004dc0| 6e 61 6d 65 73 20 24 69 | 5d 20 24 68 6f 72 20 34 |names $i|] $hor 4|
|00004dd0| 30 0d 09 09 73 65 74 20 | 68 6f 72 20 5b 65 78 70 |0...set |hor [exp|
|00004de0| 72 20 24 68 6f 72 2b 24 | 77 69 64 74 68 2b 24 6d |r $hor+$|width+$m|
|00004df0| 61 72 67 69 6e 5d 0d 09 | 7d 0d 7d 0d 0d 70 72 6f |argin]..|}.}..pro|
|00004e00| 63 20 74 69 6c 65 64 20 | 7b 7d 20 7b 0d 20 20 20 |c tiled |{} {. |
|00004e10| 20 20 20 20 20 73 65 74 | 20 78 50 61 6e 20 38 0d | set| xPan 8.|
|00004e20| 20 20 20 20 20 20 20 20 | 73 65 74 20 79 50 61 6e | |set yPan|
|00004e30| 20 31 30 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 | 10. | set |
|00004e40| 78 4d 61 72 67 20 33 0d | 20 20 20 20 20 20 20 20 |xMarg 3.| |
|00004e50| 73 65 74 20 79 4d 61 72 | 67 20 34 30 0d 20 20 20 |set yMar|g 40. |
|00004e60| 20 20 20 20 20 73 65 74 | 20 79 4d 61 78 20 35 30 | set| yMax 50|
|00004e70| 0d 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 6e 61 |.. | set na|
|00004e80| 6d 65 73 20 5b 77 69 6e | 4e 61 6d 65 73 5d 0d 20 |mes [win|Names]. |
|00004e90| 20 20 20 20 20 20 20 73 | 65 74 20 6e 75 6d 57 69 | s|et numWi|
|00004ea0| 6e 73 20 5b 6c 6c 65 6e | 67 74 68 20 24 6e 61 6d |ns [llen|gth $nam|
|00004eb0| 65 73 5d 0d 20 20 20 20 | 20 20 20 20 69 66 20 28 |es]. | if (|
|00004ec0| 24 6e 75 6d 57 69 6e 73 | 3c 31 29 20 72 65 74 75 |$numWins|<1) retu|
|00004ed0| 72 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 6c |rn. | set l|
|00004ee0| 69 6e 65 20 30 0d 0d 09 | 09 73 65 74 20 68 65 69 |ine 0...|.set hei|
|00004ef0| 67 68 74 20 5b 65 78 70 | 72 20 5b 67 65 74 56 61 |ght [exp|r [getVa|
|00004f00| 72 20 64 65 66 48 65 69 | 67 68 74 5d 2d 24 79 50 |r defHei|ght]-$yP|
|00004f10| 61 6e 2a 28 24 6e 75 6d | 57 69 6e 73 2d 31 29 5d |an*($num|Wins-1)]|
|00004f20| 0d 09 09 73 65 74 20 77 | 69 64 74 68 20 5b 67 65 |...set w|idth [ge|
|00004f30| 74 56 61 72 20 64 65 66 | 57 69 64 74 68 5d 0d 09 |tVar def|Width]..|
|00004f40| 09 0d 20 20 20 20 20 20 | 20 20 66 6f 72 20 7b 73 |.. | for {s|
|00004f50| 65 74 20 69 20 30 7d 20 | 7b 24 69 20 3c 20 24 6e |et i 0} |{$i < $n|
|00004f60| 75 6d 57 69 6e 73 7d 20 | 7b 69 6e 63 72 20 69 7d |umWins} |{incr i}|
|00004f70| 20 7b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | {. | |
|00004f80| 20 20 20 6d 6f 76 65 57 | 69 6e 20 5b 6c 69 6e 64 | moveW|in [lind|
|00004f90| 65 78 20 24 6e 61 6d 65 | 73 20 24 69 5d 20 5b 65 |ex $name|s $i] [e|
|00004fa0| 78 70 72 20 24 78 4d 61 | 72 67 2b 24 69 2a 24 78 |xpr $xMa|rg+$i*$x|
|00004fb0| 50 61 6e 5d 20 5b 65 78 | 70 72 20 24 79 4d 61 72 |Pan] [ex|pr $yMar|
|00004fc0| 67 2b 5c 0d 24 6c 69 6e | 65 5d 0d 20 20 20 20 20 |g+\.$lin|e]. |
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 6c | | set l|
|00004fe0| 69 6e 65 20 5b 65 78 70 | 72 20 24 6c 69 6e 65 2b |ine [exp|r $line+|
|00004ff0| 24 79 50 61 6e 5d 0d 20 | 20 20 20 20 20 20 20 20 |$yPan]. | |
|00005000| 20 20 20 20 20 20 20 69 | 66 20 28 24 6c 69 6e 65 | i|f ($line|
|00005010| 3e 24 79 4d 61 78 29 20 | 7b 73 65 74 20 6c 69 6e |>$yMax) |{set lin|
|00005020| 65 20 30 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |e 0}. | |
|00005030| 20 20 20 20 20 73 69 7a | 65 57 69 6e 20 5b 6c 69 | siz|eWin [li|
|00005040| 6e 64 65 78 20 24 6e 61 | 6d 65 73 20 24 69 5d 20 |ndex $na|mes $i] |
|00005050| 24 77 69 64 74 68 20 24 | 68 65 69 67 68 74 0d 20 |$width $|height. |
|00005060| 20 20 20 20 20 20 20 7d | 0d 7d 0d 0d 0d 70 72 6f | }|.}...pro|
|00005070| 63 20 6f 76 65 72 6c 61 | 79 20 7b 7d 20 7b 0d 20 |c overla|y {} {. |
|00005080| 20 20 20 20 20 20 20 73 | 65 74 20 6e 61 6d 65 73 | s|et names|
|00005090| 20 5b 77 69 6e 4e 61 6d | 65 73 5d 0d 20 20 20 20 | [winNam|es]. |
|000050a0| 20 20 20 20 73 65 74 20 | 6e 75 6d 57 69 6e 73 20 | set |numWins |
|000050b0| 5b 6c 6c 65 6e 67 74 68 | 20 24 6e 61 6d 65 73 5d |[llength| $names]|
|000050c0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 28 24 6e 75 |. | if ($nu|
|000050d0| 6d 57 69 6e 73 3c 31 29 | 20 72 65 74 75 72 6e 0d |mWins<1)| return.|
|000050e0| 20 20 20 20 20 20 20 20 | 66 6f 72 20 7b 73 65 74 | |for {set|
|000050f0| 20 69 20 30 7d 20 7b 24 | 69 20 3c 20 24 6e 75 6d | i 0} {$|i < $num|
|00005100| 57 69 6e 73 7d 20 7b 69 | 6e 63 72 20 69 7d 20 7b |Wins} {i|ncr i} {|
|00005110| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005120| 20 6d 6f 76 65 57 69 6e | 20 5b 6c 69 6e 64 65 78 | moveWin| [lindex|
|00005130| 20 24 6e 61 6d 65 73 20 | 24 69 5d 20 33 20 34 30 | $names |$i] 3 40|
|00005140| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005150| 20 73 69 7a 65 57 69 6e | 20 5b 6c 69 6e 64 65 78 | sizeWin| [lindex|
|00005160| 20 24 6e 61 6d 65 73 20 | 24 69 5d 20 5b 67 65 74 | $names |$i] [get|
|00005170| 56 61 72 20 64 65 66 57 | 69 64 74 68 5d 20 5b 67 |Var defW|idth] [g|
|00005180| 65 74 56 61 72 20 64 65 | 66 48 65 69 67 68 74 5d |etVar de|fHeight]|
|00005190| 0d 09 09 7d 0d 7d 0d 09 | 09 09 0d 0d 23 3d 3d 3d |...}.}..|....#===|
|000051a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 54 65 6d |========|==.# Tem|
|000051f0| 70 6c 61 74 65 20 65 64 | 69 74 69 6e 67 2c 20 6a |plate ed|iting, j|
|00005200| 75 73 74 20 61 6e 20 65 | 78 61 6d 70 6c 65 2e 20 |ust an e|xample. |
|00005210| 20 54 6f 20 75 73 65 2c | 20 6c 6f 61 64 20 74 68 | To use,| load th|
|00005220| 69 73 20 66 69 6c 65 2c | 20 68 69 74 0d 23 20 63 |is file,| hit.# c|
|00005230| 6f 6e 74 72 6f 6c 2d 69 | 2c 20 61 6e 64 20 61 20 |ontrol-i|, and a |
|00005240| 66 6f 72 20 74 65 6d 70 | 6c 61 74 65 20 77 69 6c |for temp|late wil|
|00005250| 6c 20 61 70 70 65 61 72 | 2e 20 43 6f 6e 73 65 63 |l appear|. Consec|
|00005260| 75 74 69 76 65 20 63 6f | 6e 74 72 6f 6c 2d 6a 27 |utive co|ntrol-j'|
|00005270| 73 0d 23 20 77 69 6c 6c | 20 73 74 65 70 20 79 6f |s.# will| step yo|
|00005280| 75 20 74 68 6f 75 67 68 | 20 76 61 72 69 6f 75 73 |u though| various|
|00005290| 20 66 69 65 6c 64 73 20 | 6f 66 20 74 68 65 20 66 | fields |of the f|
|000052a0| 6f 72 20 73 74 61 74 65 | 6d 65 6e 74 2e 20 0d 23 |or state|ment. .#|
|000052b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000052c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000052d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000052e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000052f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0d 23 |========|=====..#|
|00005300| 20 43 20 27 66 6f 72 27 | 20 74 65 6d 70 6c 61 74 | C 'for'| templat|
|00005310| 65 0d 0d 6d 65 6e 75 20 | 43 20 7b 0d 09 22 66 6f |e..menu |C {.."fo|
|00005320| 72 54 65 6d 70 6c 61 74 | 65 22 0d 09 22 77 68 69 |rTemplat|e".."whi|
|00005330| 6c 65 54 65 6d 70 6c 61 | 74 65 22 0d 09 22 28 2d |leTempla|te".."(-|
|00005340| 22 0d 09 22 2f 5c 5c 6e | 65 78 74 53 74 6f 70 22 |".."/\\n|extStop"|
|00005350| 0d 09 22 28 2d 22 0d 09 | 22 66 69 6e 64 54 61 67 |.."(-"..|"findTag|
|00005360| 22 0d 09 22 63 72 65 61 | 74 65 54 61 67 46 69 6c |".."crea|teTagFil|
|00005370| 65 22 7d 0d 0d 70 72 6f | 63 20 66 6f 72 54 65 6d |e"}..pro|c forTem|
|00005380| 70 6c 61 74 65 20 7b 7d | 20 7b 0d 09 69 6e 64 65 |plate {}| {..inde|
|00005390| 6e 74 4c 69 6e 65 0d 09 | 73 65 74 20 70 6f 73 20 |ntLine..|set pos |
|000053a0| 5b 67 65 74 50 6f 73 5d | 0d 09 73 65 74 20 69 6e |[getPos]|..set in|
|000053b0| 64 65 6e 74 20 5b 69 6e | 64 65 6e 74 53 74 72 69 |dent [in|dentStri|
|000053c0| 6e 67 20 24 70 6f 73 5d | 0d 09 73 65 74 20 73 74 |ng $pos]|..set st|
|000053d0| 72 31 20 22 66 6f 72 20 | 28 5c 3b 5c 3b 29 5c 72 |r1 "for |(\;\;)\r|
|000053e0| 22 0d 09 73 65 74 20 73 | 74 72 32 20 22 5c 7b 5c |"..set s|tr2 "\{\|
|000053f0| 72 22 0d 09 73 65 74 20 | 73 74 72 33 20 22 5c 74 |r"..set |str3 "\t|
|00005400| 5c 72 22 0d 09 73 65 74 | 20 73 74 72 34 20 22 5c |\r"..set| str4 "\|
|00005410| 7d 5c 72 22 0d 0d 09 69 | 6e 73 65 72 74 54 65 78 |}\r"...i|nsertTex|
|00005420| 74 20 24 73 74 72 31 20 | 24 69 6e 64 65 6e 74 20 |t $str1 |$indent |
|00005430| 24 73 74 72 32 20 24 69 | 6e 64 65 6e 74 20 24 73 |$str2 $i|ndent $s|
|00005440| 74 72 33 20 24 69 6e 64 | 65 6e 74 20 24 73 74 72 |tr3 $ind|ent $str|
|00005450| 34 20 24 69 6e 64 65 6e | 74 0d 09 73 65 74 20 6c |4 $inden|t..set l|
|00005460| 65 6e 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |en [stri|ng lengt|
|00005470| 68 20 24 69 6e 64 65 6e | 74 5d 0d 09 0d 09 63 72 |h $inden|t]....cr|
|00005480| 65 61 74 65 54 4d 61 72 | 6b 20 73 74 6f 70 31 20 |eateTMar|k stop1 |
|00005490| 5b 65 78 70 72 20 24 70 | 6f 73 2b 35 5d 0d 09 63 |[expr $p|os+5]..c|
|000054a0| 72 65 61 74 65 54 4d 61 | 72 6b 20 73 74 6f 70 32 |reateTMa|rk stop2|
|000054b0| 20 5b 65 78 70 72 20 24 | 70 6f 73 2b 36 5d 0d 09 | [expr $|pos+6]..|
|000054c0| 63 72 65 61 74 65 54 4d | 61 72 6b 20 73 74 6f 70 |createTM|ark stop|
|000054d0| 33 20 5b 65 78 70 72 20 | 24 70 6f 73 2b 37 5d 0d |3 [expr |$pos+7].|
|000054e0| 09 73 65 74 20 74 65 6d | 70 34 20 5b 65 78 70 72 |.set tem|p4 [expr|
|000054f0| 20 7b 20 24 70 6f 73 20 | 2b 20 5b 73 74 72 69 6e | { $pos |+ [strin|
|00005500| 67 20 6c 65 6e 67 74 68 | 20 24 73 74 72 31 5d 20 |g length| $str1] |
|00005510| 2b 20 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |+ [strin|g length|
|00005520| 20 24 73 74 72 32 5d 20 | 2b 0d 09 09 09 09 09 09 | $str2] |+.......|
|00005530| 09 20 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |. [strin|g length|
|00005540| 20 24 73 74 72 33 5d 20 | 2b 20 32 20 2a 20 24 6c | $str3] |+ 2 * $l|
|00005550| 65 6e 20 2d 20 31 7d 5d | 0d 09 63 72 65 61 74 65 |en - 1}]|..create|
|00005560| 54 4d 61 72 6b 20 73 74 | 6f 70 34 20 24 74 65 6d |TMark st|op4 $tem|
|00005570| 70 34 0d 09 63 72 65 61 | 74 65 54 4d 61 72 6b 20 |p4..crea|teTMark |
|00005580| 73 74 6f 70 35 20 5b 65 | 78 70 72 20 7b 20 24 74 |stop5 [e|xpr { $t|
|00005590| 65 6d 70 34 20 2b 20 32 | 20 2a 20 5b 73 74 72 69 |emp4 + 2| * [stri|
|000055a0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 73 74 72 34 5d |ng lengt|h $str4]|
|000055b0| 20 2b 20 24 6c 65 6e 7d | 5d 0d 09 0d 09 67 6c 6f | + $len}|]....glo|
|000055c0| 62 61 6c 20 73 74 6f 70 | 52 69 6e 67 0d 09 73 65 |bal stop|Ring..se|
|000055d0| 74 20 73 74 6f 70 52 69 | 6e 67 20 22 73 74 6f 70 |t stopRi|ng "stop|
|000055e0| 31 20 73 74 6f 70 32 20 | 73 74 6f 70 33 20 73 74 |1 stop2 |stop3 st|
|000055f0| 6f 70 34 20 73 74 6f 70 | 35 22 0d 09 67 6f 74 6f |op4 stop|5"..goto|
|00005600| 54 4d 61 72 6b 20 73 74 | 6f 70 31 0d 09 62 69 6e |TMark st|op1..bin|
|00005610| 64 20 27 6a 27 20 3c 7a | 3e 20 6e 65 78 74 53 74 |d 'j' <z|> nextSt|
|00005620| 6f 70 0d 7d 0d 0d 70 72 | 6f 63 20 77 68 69 6c 65 |op.}..pr|oc while|
|00005630| 54 65 6d 70 6c 61 74 65 | 20 7b 7d 20 7b 0d 09 69 |Template| {} {..i|
|00005640| 6e 64 65 6e 74 4c 69 6e | 65 0d 09 73 65 74 20 70 |ndentLin|e..set p|
|00005650| 6f 73 20 5b 67 65 74 50 | 6f 73 5d 0d 09 73 65 74 |os [getP|os]..set|
|00005660| 20 69 6e 64 65 6e 74 20 | 5b 69 6e 64 65 6e 74 53 | indent |[indentS|
|00005670| 74 72 69 6e 67 20 24 70 | 6f 73 5d 0d 09 73 65 74 |tring $p|os]..set|
|00005680| 20 73 74 72 31 20 22 77 | 68 69 6c 65 20 28 29 5c | str1 "w|hile ()\|
|00005690| 72 22 0d 09 73 65 74 20 | 73 74 72 32 20 22 5c 7b |r"..set |str2 "\{|
|000056a0| 5c 72 22 0d 09 73 65 74 | 20 73 74 72 33 20 22 5c |\r"..set| str3 "\|
|000056b0| 74 5c 72 22 0d 09 73 65 | 74 20 73 74 72 34 20 22 |t\r"..se|t str4 "|
|000056c0| 5c 7d 5c 72 22 0d 0d 09 | 69 6e 73 65 72 74 54 65 |\}\r"...|insertTe|
|000056d0| 78 74 20 24 73 74 72 31 | 20 24 69 6e 64 65 6e 74 |xt $str1| $indent|
|000056e0| 20 24 73 74 72 32 20 24 | 69 6e 64 65 6e 74 20 24 | $str2 $|indent $|
|000056f0| 73 74 72 33 20 24 69 6e | 64 65 6e 74 20 24 73 74 |str3 $in|dent $st|
|00005700| 72 34 20 24 69 6e 64 65 | 6e 74 0d 09 73 65 74 20 |r4 $inde|nt..set |
|00005710| 6c 65 6e 20 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |len [str|ing leng|
|00005720| 74 68 20 24 69 6e 64 65 | 6e 74 5d 0d 09 0d 09 63 |th $inde|nt]....c|
|00005730| 72 65 61 74 65 54 4d 61 | 72 6b 20 73 74 6f 70 31 |reateTMa|rk stop1|
|00005740| 20 5b 65 78 70 72 20 24 | 70 6f 73 2b 37 5d 0d 09 | [expr $|pos+7]..|
|00005750| 73 65 74 20 74 65 6d 70 | 20 5b 65 78 70 72 20 7b |set temp| [expr {|
|00005760| 20 24 70 6f 73 20 2b 20 | 5b 73 74 72 69 6e 67 20 | $pos + |[string |
|00005770| 6c 65 6e 67 74 68 20 24 | 73 74 72 31 5d 20 2b 20 |length $|str1] + |
|00005780| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00005790| 73 74 72 32 5d 20 2b 0d | 09 09 09 09 09 09 09 20 |str2] +.|....... |
|000057a0| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|000057b0| 73 74 72 33 5d 20 2b 20 | 32 20 2a 20 24 6c 65 6e |str3] + |2 * $len|
|000057c0| 20 2d 20 31 7d 5d 0d 09 | 63 72 65 61 74 65 54 4d | - 1}]..|createTM|
|000057d0| 61 72 6b 20 73 74 6f 70 | 32 20 24 74 65 6d 70 0d |ark stop|2 $temp.|
|000057e0| 09 63 72 65 61 74 65 54 | 4d 61 72 6b 20 73 74 6f |.createT|Mark sto|
|000057f0| 70 33 20 5b 65 78 70 72 | 20 7b 20 24 74 65 6d 70 |p3 [expr| { $temp|
|00005800| 20 2b 20 32 20 2a 20 5b | 73 74 72 69 6e 67 20 6c | + 2 * [|string l|
|00005810| 65 6e 67 74 68 20 24 73 | 74 72 34 5d 20 2b 20 24 |ength $s|tr4] + $|
|00005820| 6c 65 6e 7d 5d 0d 09 0d | 09 67 6c 6f 62 61 6c 20 |len}]...|.global |
|00005830| 73 74 6f 70 52 69 6e 67 | 0d 09 73 65 74 20 73 74 |stopRing|..set st|
|00005840| 6f 70 52 69 6e 67 20 22 | 73 74 6f 70 31 20 73 74 |opRing "|stop1 st|
|00005850| 6f 70 32 20 73 74 6f 70 | 33 22 0d 09 67 6f 74 6f |op2 stop|3"..goto|
|00005860| 54 4d 61 72 6b 20 73 74 | 6f 70 31 0d 09 62 69 6e |TMark st|op1..bin|
|00005870| 64 20 27 6a 27 20 3c 7a | 3e 20 6e 65 78 74 53 74 |d 'j' <z|> nextSt|
|00005880| 6f 70 0d 7d 0d 0d 70 72 | 6f 63 20 6e 65 78 74 53 |op.}..pr|oc nextS|
|00005890| 74 6f 70 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |top {} {|..global|
|000058a0| 20 73 74 6f 70 52 69 6e | 67 0d 09 73 65 74 20 66 | stopRin|g..set f|
|000058b0| 69 72 73 74 20 5b 6c 69 | 6e 64 65 78 20 24 73 74 |irst [li|ndex $st|
|000058c0| 6f 70 52 69 6e 67 20 30 | 5d 0d 09 73 65 74 20 73 |opRing 0|]..set s|
|000058d0| 74 6f 70 52 69 6e 67 20 | 5b 6c 72 65 70 6c 61 63 |topRing |[lreplac|
|000058e0| 65 20 24 73 74 6f 70 52 | 69 6e 67 20 30 20 30 5d |e $stopR|ing 0 0]|
|000058f0| 0d 09 73 65 74 20 73 74 | 6f 70 52 69 6e 67 20 5b |..set st|opRing [|
|00005900| 6c 61 70 70 65 6e 64 20 | 73 74 6f 70 52 69 6e 67 |lappend |stopRing|
|00005910| 20 24 66 69 72 73 74 5d | 0d 09 67 6f 74 6f 54 4d | $first]|..gotoTM|
|00005920| 61 72 6b 20 5b 6c 69 6e | 64 65 78 20 24 73 74 6f |ark [lin|dex $sto|
|00005930| 70 52 69 6e 67 20 30 5d | 0d 7d 0d 0d 0d 0d 23 3d |pRing 0]|.}....#=|
|00005940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 20 52 |========|====.# R|
|00005990| 61 6e 64 6f 6d 20 66 75 | 6e 63 74 69 6f 6e 73 2e |andom fu|nctions.|
|000059a0| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|000059b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000059c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000059d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000059e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000059f0| 70 72 6f 63 20 6c 69 6e | 65 54 6f 50 61 72 61 67 |proc lin|eToParag|
|00005a00| 72 61 70 68 20 7b 7d 20 | 7b 0d 09 73 61 76 65 56 |raph {} |{..saveV|
|00005a10| 61 72 73 0d 09 73 65 74 | 56 61 72 20 66 69 6c 6c |ars..set|Var fill|
|00005a20| 43 6f 6c 75 6d 6e 20 31 | 30 30 30 30 0d 09 73 65 |Column 1|0000..se|
|00005a30| 74 56 61 72 20 6c 65 66 | 74 46 69 6c 6c 43 6f 6c |tVar lef|tFillCol|
|00005a40| 75 6d 6e 20 30 0d 09 66 | 69 6c 6c 52 65 67 69 6f |umn 0..f|illRegio|
|00005a50| 6e 0d 09 72 65 73 74 6f | 72 65 56 61 72 73 7d 0d |n..resto|reVars}.|
|00005a60| 0d 70 72 6f 63 20 70 61 | 72 61 67 72 61 70 68 54 |.proc pa|ragraphT|
|00005a70| 6f 4c 69 6e 65 20 7b 7d | 20 7b 0d 09 73 61 76 65 |oLine {}| {..save|
|00005a80| 56 61 72 73 0d 09 73 65 | 74 56 61 72 20 66 69 6c |Vars..se|tVar fil|
|00005a90| 6c 43 6f 6c 75 6d 6e 20 | 37 35 0d 09 73 65 74 56 |lColumn |75..setV|
|00005aa0| 61 72 20 6c 65 66 74 46 | 69 6c 6c 43 6f 6c 75 6d |ar leftF|illColum|
|00005ab0| 6e 20 30 0d 09 66 69 6c | 6c 52 65 67 69 6f 6e 0d |n 0..fil|lRegion.|
|00005ac0| 09 72 65 73 74 6f 72 65 | 56 61 72 73 7d 0d 0d 70 |.restore|Vars}..p|
|00005ad0| 72 6f 63 20 63 6f 6d 6d | 65 6e 74 42 6f 78 20 7b |roc comm|entBox {|
|00005ae0| 7d 20 7b 0d 09 61 6c 65 | 72 74 6e 6f 74 65 20 22 |} {..ale|rtnote "|
|00005af0| 49 20 68 61 76 65 6e 27 | 74 20 67 6f 74 74 65 6e |I haven'|t gotten|
|00005b00| 20 61 72 6f 75 6e 64 20 | 74 6f 20 74 68 69 73 20 | around |to this |
|00005b10| 79 65 74 2e 22 20 7d 0d | 0d 70 72 6f 63 20 75 6e |yet." }.|.proc un|
|00005b20| 63 6f 6d 6d 65 6e 74 42 | 6f 78 20 7b 7d 20 7b 0d |commentB|ox {} {.|
|00005b30| 09 09 61 6c 65 72 74 6e | 6f 74 65 20 22 49 20 68 |..alertn|ote "I h|
|00005b40| 61 76 65 6e 27 74 20 67 | 6f 74 74 65 6e 20 61 72 |aven't g|otten ar|
|00005b50| 6f 75 6e 64 20 74 6f 20 | 74 68 69 73 20 79 65 74 |ound to |this yet|
|00005b60| 2e 22 20 7d 0d 0d 70 72 | 6f 63 20 74 72 61 6e 73 |." }..pr|oc trans|
|00005b70| 70 6f 73 65 43 68 61 72 | 73 20 7b 7d 20 7b 0d 09 |poseChar|s {} {..|
|00005b80| 09 61 6c 65 72 74 6e 6f | 74 65 20 22 49 20 68 61 |.alertno|te "I ha|
|00005b90| 76 65 6e 27 74 20 67 6f | 74 74 65 6e 20 61 72 6f |ven't go|tten aro|
|00005ba0| 75 6e 64 20 74 6f 20 74 | 68 69 73 20 79 65 74 2e |und to t|his yet.|
|00005bb0| 22 20 7d 0d 0d 70 72 6f | 63 20 74 72 61 6e 73 70 |" }..pro|c transp|
|00005bc0| 6f 73 65 57 6f 72 64 73 | 20 7b 7d 20 7b 0d 09 09 |oseWords| {} {...|
|00005bd0| 61 6c 65 72 74 6e 6f 74 | 65 20 22 49 20 68 61 76 |alertnot|e "I hav|
|00005be0| 65 6e 27 74 20 67 6f 74 | 74 65 6e 20 61 72 6f 75 |en't got|ten arou|
|00005bf0| 6e 64 20 74 6f 20 74 68 | 69 73 20 79 65 74 2e 22 |nd to th|is yet."|
|00005c00| 20 7d 0d 0d 0d 70 72 6f | 63 20 6e 65 78 74 46 75 | }...pro|c nextFu|
|00005c10| 6e 63 20 7b 7d 20 7b 0d | 09 73 65 61 72 63 68 46 |nc {} {.|.searchF|
|00005c20| 75 6e 63 20 31 0d 7d 0d | 0d 70 72 6f 63 20 70 72 |unc 1.}.|.proc pr|
|00005c30| 65 76 46 75 6e 63 20 7b | 7d 20 7b 0d 09 73 65 61 |evFunc {|} {..sea|
|00005c40| 72 63 68 46 75 6e 63 20 | 30 0d 7d 0d 0d 70 72 6f |rchFunc |0.}..pro|
|00005c50| 63 20 73 65 61 72 63 68 | 46 75 6e 63 20 7b 64 69 |c search|Func {di|
|00005c60| 72 7d 20 7b 0d 09 73 65 | 6c 65 63 74 20 5b 67 65 |r} {..se|lect [ge|
|00005c70| 74 50 6f 73 5d 0d 09 73 | 61 76 65 56 61 72 73 0d |tPos]..s|aveVars.|
|00005c80| 09 69 66 20 28 24 64 69 | 72 3d 3d 31 29 20 7b 0d |.if ($di|r==1) {.|
|00005c90| 09 09 6e 65 78 74 4c 69 | 6e 65 0d 09 7d 20 65 6c |..nextLi|ne..} el|
|00005ca0| 73 65 20 7b 0d 09 09 70 | 72 65 76 69 6f 75 73 4c |se {...p|reviousL|
|00005cb0| 69 6e 65 0d 09 7d 0d 09 | 73 65 74 20 70 6f 73 20 |ine..}..|set pos |
|00005cc0| 5b 67 65 74 50 6f 73 5d | 0d 09 73 65 74 56 61 72 |[getPos]|..setVar|
|00005cd0| 20 72 65 67 45 78 70 72 | 20 31 0d 09 73 65 74 56 | regExpr| 1..setV|
|00005ce0| 61 72 20 66 6f 72 77 61 | 72 64 20 24 64 69 72 0d |ar forwa|rd $dir.|
|00005cf0| 09 73 65 74 56 61 72 20 | 69 67 6e 6f 72 65 43 61 |.setVar |ignoreCa|
|00005d00| 73 65 20 31 0d 09 65 76 | 61 6c 20 73 65 6c 65 63 |se 1..ev|al selec|
|00005d10| 74 20 5b 73 65 61 72 63 | 68 20 7b 5e 5b 5e 20 5c |t [searc|h {^[^ \|
|00005d20| 74 5c 28 23 5c 72 2f 40 | 5d 2e 2a 5c 28 2e 2a 5c |t\(#\r/@|].*\(.*\|
|00005d30| 29 24 7d 20 24 70 6f 73 | 5d 0d 09 72 65 73 74 6f |)$} $pos|]..resto|
|00005d40| 72 65 56 61 72 73 0d 7d | 0d 0d 0d 23 20 53 68 65 |reVars.}|...# She|
|00005d50| 6c 6c 20 68 69 73 74 6f | 72 79 20 63 6f 6d 6d 61 |ll histo|ry comma|
|00005d60| 6e 64 73 2e 0d 73 6f 75 | 72 63 65 20 22 24 48 4f |nds..sou|rce "$HO|
|00005d70| 4d 45 3a 73 68 65 6c 6c | 2e 74 63 6c 22 0d 0d 23 |ME:shell|.tcl"..#|
|00005d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 49 6e |========|===.# In|
|00005dd0| 63 6c 75 64 65 20 66 69 | 6c 65 20 6d 61 6e 69 70 |clude fi|le manip|
|00005de0| 75 6c 61 74 69 6f 6e 2e | 20 2d 20 63 61 6c 6c 65 |ulation.| - calle|
|00005df0| 64 20 66 72 6f 6d 20 41 | 6c 70 68 61 2e 0d 23 3d |d from A|lpha..#=|
|00005e00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 70 72 6f 63 20 |========|==.proc |
|00005e50| 69 6e 63 6c 75 64 65 46 | 69 6c 65 20 7b 7d 20 7b |includeF|ile {} {|
|00005e60| 0d 09 67 6c 6f 62 61 6c | 20 69 6e 63 6c 75 64 65 |..global| include|
|00005e70| 50 61 74 68 0d 09 67 6c | 6f 62 61 6c 20 54 68 69 |Path..gl|obal Thi|
|00005e80| 6e 6b 0d 09 73 65 74 20 | 70 61 74 68 20 5b 73 75 |nk..set |path [su|
|00005e90| 62 73 74 69 74 75 74 65 | 56 61 72 73 20 24 69 6e |bstitute|Vars $in|
|00005ea0| 63 6c 75 64 65 50 61 74 | 68 5d 0d 09 73 65 74 20 |cludePat|h]..set |
|00005eb0| 66 6e 61 6d 65 20 5b 67 | 65 74 53 65 6c 65 63 74 |fname [g|etSelect|
|00005ec0| 5d 0d 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6c |]..if {[|string l|
|00005ed0| 61 73 74 20 22 2e 68 22 | 20 24 66 6e 61 6d 65 5d |ast ".h"| $fname]|
|00005ee0| 3d 3d 22 2d 31 22 7d 20 | 7b 0d 09 09 73 65 74 20 |=="-1"} |{...set |
|00005ef0| 66 6e 61 6d 65 20 24 7b | 66 6e 61 6d 65 7d 2e 68 |fname ${|fname}.h|
|00005f00| 0d 09 7d 0d 09 66 6f 72 | 65 61 63 68 20 64 69 72 |..}..for|each dir|
|00005f10| 20 24 70 61 74 68 20 7b | 0d 09 09 69 66 20 7b 5b | $path {|...if {[|
|00005f20| 66 69 6c 65 20 65 78 69 | 73 74 73 20 24 64 69 72 |file exi|sts $dir|
|00005f30| 24 66 6e 61 6d 65 5d 7d | 20 7b 0d 09 09 09 65 64 |$fname]}| {....ed|
|00005f40| 69 74 20 24 64 69 72 24 | 66 6e 61 6d 65 0d 09 09 |it $dir$|fname...|
|00005f50| 09 72 65 74 75 72 6e 0d | 09 09 7d 0d 09 7d 0d 09 |.return.|..}..}..|
|00005f60| 62 65 65 70 0d 7d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |beep.}.#|========|
|00005f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005f80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005f90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005fa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005fb0| 3d 3d 3d 0d 23 20 41 64 | 64 20 74 65 6d 70 6f 72 |===.# Ad|d tempor|
|00005fc0| 61 72 79 20 66 69 6c 65 | 73 65 74 2e 0d 23 3d 3d |ary file|set..#==|
|00005fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 73 65 74 20 66 69 |========|=.set fi|
|00006020| 72 73 74 54 65 6d 70 20 | 31 0d 70 72 6f 63 20 61 |rstTemp |1.proc a|
|00006030| 64 64 46 69 6c 65 73 65 | 74 20 7b 7d 20 7b 0d 09 |ddFilese|t {} {..|
|00006040| 67 6c 6f 62 61 6c 20 66 | 69 6c 65 53 65 74 73 0d |global f|ileSets.|
|00006050| 09 67 6c 6f 62 61 6c 20 | 66 69 72 73 74 54 65 6d |.global |firstTem|
|00006060| 70 0d 09 0d 09 69 66 20 | 7b 24 66 69 72 73 74 54 |p....if |{$firstT|
|00006070| 65 6d 70 20 3d 3d 20 31 | 7d 20 7b 0d 09 09 69 66 |emp == 1|} {...if|
|00006080| 20 7b 5b 61 73 6b 79 65 | 73 6e 6f 20 22 54 68 69 | {[askye|sno "Thi|
|00006090| 73 20 72 6f 75 74 69 6e | 65 20 69 73 20 66 6c 61 |s routin|e is fla|
|000060a0| 6b 65 79 2e 20 43 6f 6e | 74 69 6e 75 65 3f 22 5d |key. Con|tinue?"]|
|000060b0| 20 21 3d 20 22 79 65 73 | 22 7d 20 72 65 74 75 72 | != "yes|"} retur|
|000060c0| 6e 0d 09 09 73 65 74 20 | 66 69 72 73 74 54 65 6d |n...set |firstTem|
|000060d0| 70 20 30 0d 09 7d 0d 09 | 73 65 74 20 6e 61 6d 65 |p 0..}..|set name|
|000060e0| 20 5b 67 65 74 6c 69 6e | 65 20 22 4e 65 77 20 66 | [getlin|e "New f|
|000060f0| 69 6c 65 73 65 74 20 6e | 61 6d 65 3a 22 20 22 22 |ileset n|ame:" ""|
|00006100| 5d 0d 09 69 66 20 7b 21 | 5b 73 74 72 69 6e 67 20 |]..if {!|[string |
|00006110| 6c 65 6e 67 74 68 20 24 | 6e 61 6d 65 5d 7d 20 72 |length $|name]} r|
|00006120| 65 74 75 72 6e 0d 09 0d | 09 73 65 74 20 64 69 72 |eturn...|.set dir|
|00006130| 20 5b 67 65 74 5f 64 69 | 72 65 63 74 6f 72 79 5d | [get_di|rectory]|
|00006140| 0d 09 69 66 20 7b 21 5b | 73 74 72 69 6e 67 20 6c |..if {![|string l|
|00006150| 65 6e 67 74 68 20 24 64 | 69 72 5d 7d 20 72 65 74 |ength $d|ir]} ret|
|00006160| 75 72 6e 0d 09 0d 09 73 | 65 74 20 66 69 6c 65 50 |urn....s|et fileP|
|00006170| 61 74 20 5b 67 65 74 6c | 69 6e 65 20 22 46 69 6c |at [getl|ine "Fil|
|00006180| 65 20 70 61 74 74 65 72 | 6e 3a 22 20 22 2a 22 5d |e patter|n:" "*"]|
|00006190| 0d 09 69 66 20 7b 21 5b | 73 74 72 69 6e 67 20 6c |..if {![|string l|
|000061a0| 65 6e 67 74 68 20 24 66 | 69 6c 65 50 61 74 5d 7d |ength $f|ilePat]}|
|000061b0| 20 72 65 74 75 72 6e 0d | 09 0d 09 73 65 74 20 6e | return.|...set n|
|000061c0| 65 77 46 53 65 74 20 5b | 67 6c 6f 62 20 22 24 64 |ewFSet [|glob "$d|
|000061d0| 69 72 3a 24 66 69 6c 65 | 50 61 74 22 5d 0d 09 6c |ir:$file|Pat"]..l|
|000061e0| 61 70 70 65 6e 64 20 66 | 69 6c 65 53 65 74 73 20 |append f|ileSets |
|000061f0| 5b 6c 69 6e 73 65 72 74 | 20 24 6e 65 77 46 53 65 |[linsert| $newFSe|
|00006200| 74 20 30 20 24 6e 61 6d | 65 5d 0d 0d 09 73 65 74 |t 0 $nam|e]...set|
|00006210| 20 6e 61 6d 65 73 20 7b | 7d 0d 09 66 6f 72 65 61 | names {|}..forea|
|00006220| 63 68 20 73 65 74 20 24 | 66 69 6c 65 53 65 74 73 |ch set $|fileSets|
|00006230| 20 7b 0d 09 09 6c 61 70 | 70 65 6e 64 20 6e 61 6d | {...lap|pend nam|
|00006240| 65 73 20 5b 6c 69 6e 64 | 65 78 20 24 73 65 74 20 |es [lind|ex $set |
|00006250| 30 5d 0d 09 7d 0d 09 65 | 76 61 6c 20 5b 6c 69 6e |0]..}..e|val [lin|
|00006260| 73 65 72 74 20 24 6e 61 | 6d 65 73 20 30 20 73 65 |sert $na|mes 0 se|
|00006270| 74 46 53 65 74 73 20 5d | 0d 7d 0d 0d 0d 23 3d 3d |tFSets ]|.}...#==|
|00006280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 43 6f 6d 6d |========|=.# Comm|
|000062d0| 65 6e 74 20 72 6f 75 74 | 69 6e 65 73 2e 0d 23 3d |ent rout|ines..#=|
|000062e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000062f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00006320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 70 72 6f 63 20 |========|==.proc |
|00006330| 63 6f 6d 6d 65 6e 74 50 | 61 72 61 20 7b 7d 20 7b |commentP|ara {} {|
|00006340| 0d 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.}......|........|
|00006350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006380| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00006390| ff 08 ff f8 2d 6d ff 0c | ff fc 60 0c 2d 6d ff 10 |....-m..|..`.-m..|
|000063a0| ff f8 2d 6d ff 14 ff fc | 20 6c 00 82 20 50 21 6e |..-m....| l.. P!n|
|000063b0| 09 70 72 6f 63 73 2e 74 | 63 6c 02 00 00 00 54 45 |.procs.t|cl....TE|
|000063c0| 58 54 4b 41 48 4c 01 00 | 00 50 26 20 00 00 00 00 |XTKAHL..|.P& ....|
|000063d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 50 26 20 |..TEXTKA|HL...P& |
|000063e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063f0| 00 00 a6 67 cf d9 00 00 | 62 c3 00 00 01 7e 60 ce |...g....|b....~`.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
